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Fort Worth Scene 



It's September and time for the annual education issue. 
We truly believe that we have got something here for every- 
one. Color Computer, Models I/III/4, Model 11/12/16, 
Model 100, and Pocket Computer educational programs, as 
well as descriptive materials, are offered for your perusal and 
enjoyment. 

Our Education Department has provided us with an 
informative article on the state-of-the-art in classroom com- 
puting needs as they are defined and fulfilled here at 
Radio Shack. Be sure to read this excellent article. 

There are the two educational programs written by Dr. 
Leo Finkelstein, Jr. for the Model 1 00. You will also notice that 
these two programs are included in a new Model 1 00 section, 
that we hope will become a regular feature of the TRS-80 
Microcomputer News. So get busy all new Model 100 
owners out there. Let's see those programs and innovative 
uses for that fantastic machine start rolling into the 
Microcomputer News offices for publication. 

COLOR LOGO CONTINUES TO GROW 

It seems that just a little less than a year ago, in our 
November 1 982 issue to be exact, we were introducing Color 
LOGO to our readers. We were excited about it then, be- 
cause of its potential in teaching children the fine art of 
computer programming and apparently the excitement was 
contagious and well-founded. 

Dr. Paul Kimmelman, of the Norton City Schools in Ohio, 
offers our readers an insightful discussion on the role and 
impact of Color LOGO in the schools. If you are a teacher, 
parent, student, or someone concerned with the continued 
success of Color LOGO in the school environment, please 
read this fine article. J3 



Data Conversions 



Damarian Computer Service, Inc. 
12 Tempo Road 
New City, NY 10956 



We have built a business around the conversion of files 
from and to IBM Magnetic Tape to and from diskettes. We can 
convert any files from and to a Model I, II, III, 4, 12, or 16. 



This capability allows a TRS-80 user to rent a mailing list on 
tape and to use it on the TRS-80. Also, the TRS-80 owner can 
rent out his list to others on Magnetic tape (1 600 BPI). We also 
can make any file coming from tape look like your software 
products expect (Profile, Business Mailing List, etc.), or we 
can edit and sort lists and files. 

Now, we are beginning to do CPM-TRSDOS-IBM-TAPE 
conversions. It should be noted that some of this work uses a 
Radio Shack Reformatter package in conjunction with our 
own software and hardware. The people at Microtech 
Exports Inc. are to be commended for their product and 
assistance to us. Their software is a real breakthrough 
in allowing the TRS-80 to use information previously 
unavailable. 

We are currently experimenting with Color Computer 
Disk to and from Magnetic Tape conversion. In the meantime, 
interested readers may contact, Fay Greenbaum, President, 
for more information. 



Warren Glimpse & Co. 
1 05A Oronoco Street 
Alexandria, VA 22314 



We offer conversion services for all TRS-80 Computers: 

Magnetic tape to/from diskette-hard disk. 
Diskette to diskette. 
File restructuring. 
Software adaptation. 

Now, that XENIX is being more widely used, we have 
again responded to users' needs by providing services to 
convert both data files and software for use with XENIX. 

For further information, readers may contact Cathryn P. 
Gekas at the above address. J2 




This month's cover features a Color LOGO lab. 
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TRS-80 Microcomputer News is published monthly 
by Radio Shack, a division of Tandy Corporation, One Tandy 
Center, Fort Worth, Texas U.S.A. 76102. Copyright 1983 by 
Tandy Corporation, One Tandy Center, Fort Worth, Texas 
U.S.A. 76102. All rights reserved. 

Reproduction or use, without express written permission 
from Tandy Corporation, of any portion of the Microcomputer 
News is prohibited. Permission is specifically granted to individ- 
uals to use or reproduce material for their personal, non- 
commercial use. Reprint permission for all material (other than 
Ivan Sygoda's Profile article), with notice of source, is also 
specifically granted to non-profit clubs, organizations, educa- 
tional institutions, and newsletters, 

TRS-80 Microcomputer News is published monthly by 
Radio Shack, a division of Tandy Corporation. A single six 
month subscription is available free to purchasers of new full 
size TRS-80 Microcomputer systems with addresses in the 
United States, Puerto Rico, Canada and APO or FPO ad- 
dresses. Certain smaller TRS-80 Microcomputers will not in- 
clude this free subscription. Subscriptions to other addresses 
are not available. 

The subscription rate for renewals and other interested 
persons with U.S., APO or FPO addresses is twelve dollars 
($12.00) per year, check or money order. Single copies of the 
Microcomputer News may be purchased from Radio Shack 
Computer Centers or Computer Departments for $1.50 sug- 
gested retail each. 

The subscription rate for renewals and other interested 
persons with Canadian addresses is Fifteen dollars ($15.00) per 
year, check or money order in U.S. funds All correspondence 
related to subscriptions should be sent to: Microcomputer 
News, P.O. Box 2910, Fort Worth, Texas 76113-2910. 

Retail Prices in this newsletter may vary at individual stores 
and dealers. The company cannot be liable for pictorial and 
typographical inaccuracies. 

Back issues of Microcomputer News prior to January, 1 981 
are available through your local Radio Shack store as stock 
number 26-2115 (Suggested Retail Price $4.95 for the set). 
Back issues of 1981 copies are available as stock number 26- 
2240 (Suggested Retail Price $9,95 for the set) 

The TRS-80 Newsletter welcomes the receipt of computer 
programs, or other material which you would like to make avail- 
able to users of TRS-80 Microcomputer systems. In order for us 
to reprint your submission, you must specifically request that 
your material be considered for reprinting in the newsletter and 
provide no notice that you retain copyrights or other exclusive 
rights in the material. This assures that our readers may be 
permitted to recopy and use your material without creating any 
legal hassles. 

Material for publication should be submitted on magnetic 
media (tape, disk, or CompuServe), If you submit material on 
tape or disk, and it is accepted for publication, we will send you 
two cassettes or diskettes for each one you sent us. Cassettes 
will come from our box of mixed blank cassettes. If you submit 
material on CompuServe, and we think we may use the mate- 
rial, we will extend your Microcomputer News subscription by 
six months for each article accepted. If you are submitting 
material over CompuServe, please include your name and ad- 
dress or your subscription number so we can find you. If the 
material is very short, send it to us in E-Mail. If you have more 
than a few lines, you need to place the material in the ACCESS 
area of CompuServe and then let us know it is there by leaving a 
message on E-Mail. 

Material may be submitted by mail to P.O. Box 2910, Fort 
Worth, Texas 76113-2910, or through CompuServe. The 
Microcomputer News' CompuServe user ID number is 
70007,535. 

Programs published in the Microcomputer News are pro- 
vided as is, for your information. While we make reasonable 
efforts to ensure that the programs we publish here work as 
specified, Radio Shack can not assume any liability for the 
accuracy either of the programs themselves or of the results 
provided by the programs. 

Further, while Microcomputer News is a product of Radio 
Shack, the programs and much of the information published 
here are not Radio Shack products, and as such can not be 
supported by our Computer Customer Service group. If you 
have questions about a program in the Microcomputer News, 
your first option is to write directly to the author of the program. 
When possible, we are now including author's addresses to 
facilitate communications. If the address is not published, or if 
you are not happy with the response you get, please write us 
here at Microcomputer News. We will try (given the limited size 
of our staff) to find an answer to your question and, in many 
cases, will publish the answer in an up-coming issue of Micro- 
computer News. 
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Computer Clubs 



AGGIE COLOR COMPUTER USERS' GROUP 

c /o Louise Darcey 

1301 Francis 

College Station, TX 77840 

1-409-696-1656 

ALASKA COLOR COMPUTER USERS' GROUP 

c /o Rick McDannel 

816 N. Pine #2 

Anchorage, AK 99504 

1-907-274-5778 

BILLINGS COLOR COMPUTER CLUB 
c /o Jayne Kenyon 
4306 Phillip 
Billings, MT 59101 

BUG-80 USERS' GROUP 

P.O. Box 62 

Glen Gardens, NJ 08826 

CENTRAL ILLINOIS TRS-80 COMPUTER CLUB 
c /o Paul Fargusson 
1418 So. Douglas Ave. 
Springfield, IL 62704 

COCO-MUG 
c /o Tom Fan d re 
2420 Misty Lane 
Waukesha, Wl 53186 
1-414-542-0600 



MCTRUG 

c /o D. D. Freeman 

334 Fieldside Dr. 

Garland, TX 75043 

1-214-270-0625 

1-214-637-4510 

MEMPHIS COLOR COMPUTER USERS' GROUP 

c /o Arnie Graber 

3422 Plaza Ave. 

Memphis, TN 38111 

1-901-323-1183 

MGCCC/METROPOLITAN GREENVILLE (SC) COLOR 

COMPUTER CLUB 

c /o Ed Lowe 

P.O. Box 6 

Gray Court, SC 29645 

1-803-876-3928 

1-803-876-3812 

MIDLANDS 80 COMPUTER CLUB 
P.O. Box 7594 
Columbia, SC 29202 

MORGANTOWN-FAIRMONT WEST VIRGINIA AREA 

COLOR COMPUTER USERS' GROUP 

c /o Donald Barber 

P.O. Box 295 

Granville WV 26534 

1-304-599-4493 

NATIONAL MODEL II USERS' GROUP 
c /o Bob Stewart 
P.O. Box 234 
Ada, Ml 49301 



COCONUTS & FRIENDS 
2039 Main Street 
Fortuna, CA 95540 

DALTRUG 

c /o D. D. Freeman 

334 Fieldside Dr. 

Garland, TX 75043 

1-214-270-0625 

1-214-637-4510 

DEBUG/DUST BYTER'S USERS' GROUP 

c /o Burt Haberman 

6557-A East Calle La Paz 

Tucson, AZ 85715 

1-602-298-7888 

1-602-297-2179 



RICHMOND (VIRGINIA) COLOR COMPUTER USERS' 

GROUP 

c /o Randolph W. Graham 

2115 Buford Road 

Richmond, VA 23235 

1-804-320-0019 

SALEM COMPUTER CLUB 
c /o Clinton E. Trammel 
P.O. Box 573 
Salem, MO 65560 

WESTSHORE TRS-80 COMPUTER CLUB 
c /o Chris Lambros 
3540 Archwood Drive 
Rocky River, OH 44116 
1-216-333-8969 



EAST BAY COLOR COMPUTER CLUB 
c /o Joe Hayden 
31166 Oakh ill Way 
Hayward, CA 94544 
1-415-487-3537 



WIZARDS COMPUTER CLUB 
c /o Michael Foster 
1 20 Centre 
Hereford, TX 79045 
1-806-364-2767 
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Education 




The Company That 
Classroom 
ds 



In its fourth year of existence, the Radio Shack Education 
Division is as committed as ever to meeting the computing 
needs of the education community. We've built up the mo- 
mentum to achieve significant goals and to set exciting new 
goals. In this brief overview of our activities, our latest prod- 
ucts, and our standing in the education marketplace, we 
hope we'll show you why we think Radio Shack is the micro- 
computer manufacturer best equipped to meet your educa- 
tional computing needs. 

HELPING EDUCATORS MEET THE CHALLENGES OF 
THE COMPUTER AGE 

No matter how much a school may spend on computers, 
someone in that school has to know how to use the equip- 
ment "before effective computer-based instruction can take 
place. Radio Shack has long believed in providing teachers 
with the training and support that they need. This belief has 
been put into action in several ways. 

First, user's manuals for our educational courseware 
provide clear, concise instructions— in most cases, these 
manuals are designed to be used by teachers who have 
never worked with a computer. Computer programs, too, are 
thoroughly edited for clarity. The user is never left wondering 
what the computer expects next. 

Second, Radio Shack Computer Centers offer BASIC 
programming training and an "Educators' Workshop" on 
educational computer use, FREE to educators. In March, 
1983, it was determined that more than 125,000 teachers 
had taken these classes in the preceding 12 months. 

Third, the Radio Shack Education Division has a team of 
24 Regional Educational Coordinators located across the 
country, to help local schools and districts determine how 
they can best implement a program of computer-based 
instruction. 

Fourth, Radio Shack's Computer Customer Service de- 
partment in Fort Worth has an education specialist ready to 
answer questions by telephone (817-390-3302). 

Fifth, Radio Shack has recently initiated a nationwide 
effort to provide free computer literacy training to all educa- 
tors. We call this project America's Educational Challenge. 

AMERICA'S EDUCATIONAL CHALLENGE™ 

America's Educational Challenge gives all teachers in 
elementary and secondary schools the opportunity to 
achieve a basic understanding of computers and their appli- 
cations in education, at no cost to themselves, their schools, 
or taxpayers. 



Through this project, Radio Shack has distributed com- 
puter training materials directly to schools in two ways. In 
March, 1983, principals and headmasters of 103,445 
schools in the United States were sent an initial packet. This 
packet contained an educator's handbook on microcom- 
puter use in schools, a Basic Computer Literacy pack- 
age designed to teach elementary computer concepts, a 
secondary-level textbook designed to illustrate programming 
concepts, examples of what several school districts are using 
with computers, and a certificate for free classes on BASIC 
programming and educational computer use. More recently, 
follow-up letters were sent to 1 6,000 school superintendents. 

Also in the initial packet was an order form for a free staff- 
development package. This second package includes, 
among other items, two narrated filmstrips designed to intro- 
duce teachers to microcomputers and their use in education, 
and more certificates for free programming classes at 
Radio Shack Computer Centers. 

If, for some reason, your school missed out on this 
second, free staff-development package, contact your princi- 
pal or superintendent for more information about America's 
Educational Challenge. 

NEW PRODUCTS, NEW RESOURCES 

This has been a big year for Radio Shack courseware 
releases. Since last September, the Radio Shack Education 
Division has greatly increased its selection of quality course- 
ware for elementary, secondary, and even college-level edu- 
cation. We've released new products for all of our hardware 
models used in education, with a special emphasis on the 
Color Computer. 

SECONDARY MATH 

I n secondary mathematics, we released a Number The- 
ory program (Cat. No. 26-261 3) for TRS-80 Models I, III, and 
4 that gives definitions, examples, and exercises on number 
theory concepts. Also for Models I/III/4, the Matrices, De- 
terminants, and Simultaneous Equations program (Cat. 
No. 26-2620) generates practice exercises related to simple 
matrix algebra, while the Quadratic Equations program 
(Cat. No. 26-2623) generates problems in equation recogni- 
tion, coefficient recognition, discriminant evaluation and type 
of roots. 

Secondary mathematics programs for the Color Com- 
puter are now available from Radio Shack. Investigations in 
Integral Calculus for the TRS-80 Color Computer (Cat. 
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No. 26-2641) now lets you use a 16K cassette- based system 
with Extended Color BASIC or a 32K disk system with Disk 
Extended Color BASIC to graph and compute the areas of 
functions. The Vector Addition Program for the TRS-80 
Color Computer (Cat. No. 26-2638) lets you use a 32K tape 
or disk machine to plot the components and sums of vectors. 

LANGUAGE ARTS 

In language arts, C.A.R.D. II: Paragraphs (Cat. No. 26- 

2604) is now available for use with Model III or 4, This 
package, based on the Philadelphia City Schools Computer 
Assisted Reading Development program, is the second in a 
four-part series that began with C.A.R.D. I: Sentences (Cat. 
No. 26-2603). Both packages are a comprehensive, cumula- 
tive series of numerous tutorial reading development lessons 
in the title topic (sentences or paragraphs), complete with 
pretests/posttests, and many practice exercises. TRS-80 
AUTHOR I (Cat No 26-1727) or the TRS-80 AUTHOR I 
Lesson Presentation Package (Cat. No. 26-2707) is re- 
quired to run C.A.R.D. lessons on a stand-alone Model III or 
4 The Network 3 TRS-80 AUTHOR I Lesson Presenta- 
tion Package, to be released this fall, will make it possible to 
run C.A.R.D. lessons on a Network 3 system. 

HISTORY 

In history, the Basic Illustrated History of America 

Learning Unit (Cat. No. 26-2645) is a major addition to our 
Model III/4 courseware line. Computer, audio, and print- 
media materials in the package provide an exciting, motiva- 
tional survey of American history from the discovery of the 
"New World" to the present. Twelve different illustrated-for- 
mat paperback history readers, written at reading levels 4-6, 
are included in the package. For each book, a read-along 
audio tape helps present the story, and a computer activities 
diskette presents exercises that test, and help reinforce, un- 
derstanding. The illustrated format of the reading books is 
designed to involve students in the exciting story of America, 
making it easy for students of varied reading levels to under- 
stand the connections among historical events, and to re- 
member these events. This is one history course that is 
anything but dry! (This history package requires one of the 
AUTHOR I packages mentioned above.) 

COMPUTER EDUCATION 

Several new computer/vocational education packages 
were released this year. Two of these are comprehensive 
multi-media instructional kits that do not require the use of 
computer hardware. The first, Careers in Computing (Cat. 
No. 26-2758) uses a narrated filmstrip, spirit masters, teach- 
er's guide, and student guides, to give students the informa- 
tion they need to begin considering a computer career. The 
second, The Computer Connection, (Cat. No. 26-2663) 
has spirit masters, wall charts, a narrated filmstrip, and a 
teacher's guide, to introduce students to microcomputers 
and programming. 

Part Four: TRSDOS (Cat. No. 26-2156), the latest vol- 
ume of the Radio Shack Computer Education Series, is now 
available. Part Four: TRSDOS uses overhead transparen- 
cies, a teacher's manual with instructions and answers, and 
student workbooks to cover features of the TRS-80 Model III 
disk operating system. COBOL programming can now be 
taught using one of Radio Shack's latest courseware pack- 



ages COBOL for the TRS-80 Models II, 12, and 16: 
Volume One (Cat. No. 26-2706) was written by Robert T. 
Grauer, Ph.D. The package contains a 180-page COBOL 
textbook (with explanations, example programs, and exer- 
cises), and a COBOL Instructional Diskette for hands-on 
practice. It is ideal for classroom use or for self-study. The 
Radio Shack COBOL Development System (Cat No 
26-4703) is also required, to run the hands-on exercises. 
Class Notes (Cat. No. 26-2723), also written by Dr. Grauer, 
are available separately as an aid to instructors who wish to 
teach this course in the classroom. 

SCIENCE 

TRS-80 Chemistry Lab, Volume One, is an important 
new science package. Versions for Models I/III/4 (Cat. No. 
26-2609) and for the Color Computer (Cat. No. 26-2626) are 
available separately. This package contains six laboratory 
experiment simulations in these topics: Kinetic theory, Boyle's 
law, Charles' law, Titration, Conductivity, and Solubility, Stu- 
dents control variables in experiments in order to see the 
changing results. Student experiment books provided with 
the program contain instructions for using the programs, plus 
worksheets for use in summarizing experiment results. 

The Solar System: Featuring the Discovery of the 
Planet Pluto (Cat. No. 26-2647) is a new audio/visual tutorial 
for the 1 6K Color Computer tape system. Among the features 
of this program is a segment narrated by Professor Clyde W. 
Tombaugh, the astronomer who discovered Pluto in 1930. A 
wall chart, hardback book by Dr. Tombaugh on the discovery 
of Pluto, and a list of suggested activities in the teacher's 
manual, provide enrichment for the computer program. 

COLOR LOGO 

TRS-80 Color LOGO was one of the most significant 
educational products released this past year. Available for the 
Color Computer in a 32K disk version (Cat. No. 26-2721 ) and 
a 1 6K Program Pak™ version (Cat. No. 26-2722), this TRS-80 
version of the popular educational computer language 
LOGO has received several excellent reviews from educa- 
tional journals. Color LOGO was taught in Radio Shack Com- 
puter Camps this summer. Supplementary Color LOGO 
materials, including a teacher's guide with suggested activi- 
ties, will be released later in 1983. Student Stations using 
Color LOGO Program Paks may be connected via a Network 
2 Controller to a teacher's Host Color Computer using the 
disk version of LOGO. 

AND FUTURE PROJECTS? 

Among the exciting new courseware products now in 
development at the Radio Shack Education Division are: a 
student records attendance, grades, and scheduling system 
for Models II, 1 2, and 1 6; an impressive business simulation 
package for secondary and college level; a Color Computer 
software package that teaches assembly language concepts 
through simulation; and a classroom package to teach 
BASIC programming on the new MC-10 microcomputer. 

COURSEWARE AVAILABLE FROM OTHER SOURCES 

Hundreds of third-party courseware publishers list,- 
their educational products in Radio Shack's Educational Soft- 
ware Sourcebook. These publishers include classroom 
teachers who develop their own programs and later market 
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them, professional computer programmers, and major edu- 
cational publishing houses which are also involved in com- 
puter software production. 

A new Second Edition to this useful sourcebook is due to 
be released any minute, if it isn't already available! This new, 
expanded edition will contain many new listings for all the 
TRS-80 machines used in education, as well as numerous 
"publisher profiles" submitted by the software developers 
themselves. While inclusion in the sourcebook does not imply 
endorsement by Radio Shack, the book serves as a valuable 
resource for educators looking for a wide range of TRS-80 
courseware. 

RADIO SHACK IN THE EDUCATION MARKET 

Schools and school districts that choose Radio Shack 
TRS-80 computers are in good company. The individual state 
department of education surveys (that we've been able to 
collect so far) show that in almost every case, Radio Shack 
has more microcomputers in the schools than any other 
manufacturer. If you are using TRS-80 microcomputers, or 
are considering their use, this is good news for you. With 
so many TRS-80s being used in the classroom, the quantity 
and variety of high-quality, classroom-tested courseware 
packages available to you are sure to continue to increase 
geometrically! 

Louisiana — 1983 survey shows that 780 of 1 ,373 com- 
puters counted in the Louisiana schools are TRS-80 micro- 
computers — that's 52%. The second-place brand had only 
22% representation. 

"Florida — the latest survey (1982) shows that 
Radio Shack has the best representation in Florida schools; 
more than 45% of their microcomputers are TRS-80s, versus 
only 24% for the second-place brand. 

Kentucky — the 1982-83 state survey reveals TRS-80 
microcomputers account for 52% of computers in the Ken- 
tucky schools, versus 22% for the second-place brand. 

Indiana — Radio Shack is number one by the latest 
(1 982) survey, with 37.5% of the classroom microcomputers. 
The second-place brand has 32.4%. 

North Carolina — Radio Shack leads statewide. Also, Re- 
gion 5 reported in March, 1982, that 71 .4% of their districts 
used TRS-80s. 64.2% of the microcomputers used were 
TRS-80s, versus 35.8% for the second-place brand. 

Oklahoma — a 1982 University of Oklahoma survey 
yielded the following statistics on the percentage of Okla- 
homa school computers that are TRS-80s: 59.5% in the 
Elementary schools (versus 24.8% for the second-place 
brand), 68% for middle schools (versus the second-place 
brand's 26.5%), and 72.6% for high schools (versus the 
second-place brand's 13.6%). 

Pennsylvania — figures prepared in late 1981 for the 
Pennsylvania Department of Education by the state's con- 
tracting unit for microcomputers showed that purchases 
of Radio Shack TRS-80 computers by the state's schools 
were almost twice the volume of all other manufacturers 
combined. 

Texas — a late 1981 survey reported statewide usage of 
TRS-80s at 58%, versus 40% usage of the second-place 
brand. A 1983 survey showed that in Region 5, TRS-80s 
accounted for 59% of all microcomputers, versus 36.4% for 
the second-place brand. 



Washington State — again, Radio Shack is in the lead 
with 35.5% of all school computers, versus 33.7% for the 
second-place brand. 

West Virginia — by number of locations, Radio Shack 
has a strong lead — the 1982 state survey shows TRS-80 
microcomputers used in more schools than all major compet- 
itors combined (number of computers used was not 
reported). 

Montana— 1982 survey found 220 TRS-80 microcom- 
puters in 89 schools, versus only 160 machines for the 
second-place company. 

Idaho — December 1981 survey found that 59.38% of 
the state's school microcomputers were TRS-80s, versus 
20.2% for the second-place brand. 

Connecticut — 1983 survey showed Radio Shack in the 
lead with 34% representation among computers, terminals, 
and microcomputers. (The second-place company had 
32.9% representation.) 

Catholic Schools — an article in the September, 1982 is- 
sue of Today's Catholic Teacher stated that Radio Shack had 
"conquered the lion's share (52.8 percent) of the Catholic 
school market" [pp. 62-64]. 

New England — the November/December 1 981 issue of 
Classroom Computer News reported TRS-80 microcompu- 
ters the most widely used in the New England area schools. 

SUMMARY 

The Radio Shack Education Division is committed to 
making the microcomputer and its potential available to the 
education community. To meet this obligation, we continue to 
support an extensive development effort to produce quality 
microcomputer-based educational materials which are in- 
structionally sound, effective, properly validated, and de- 
signed for use in the classroom. 

We also maintain a network of locally-based Regional 
Educational Sales Coordinators who are available to provide 
guidance and information to schools and districts that are 
seeking to implement microcomputer-based programs. 

A list of these Coordinators, including one you can con- 
tact, is at the end of this article. 

Radio Shack is "The Name in Classroom Computing"™ 
because Radio Shack is committed to education. JS 



Radio Shack Regional Educational Coordinators 



Albany Region: 
Don Francolino 
Radio Shack 
39 S. Main Street 
W. Hartford, CT 06107 
203/232-4529 

Atlanta Region: 
Art Williams 
Radio Shack 
241 W. Wieuca Rd., N.E. 
Atlanta, GA 30342 
404/255-9438 

Boston Region: 
Dick Callahan 
Radio Shack 
Education Division 
250 Granite Street 
Braintree, MA 02368 
617/848-0780 



Chicago Region: 
Donna Comber 
Radio Shack 

679 W. North Ave., Suite 204 
Elmhurst, IL 60126 

Columbus Region: 
Sonny O. Compton 
Radio Shack 
4343 Williams Road 
Groveport, OH 43125 
614/836-2373 

Dallas Region 
Sid Agent 
Radio Shack 
2588 Royal Lane 
Dallas, TX 75229 
214/484-9943 (4) (5) 
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Denver Region: 
Rosemary Shiels 
Radio Shack 
5890 W. 44th Avenue 
Denver, CO 80212 
303/424-4467 

Detroit Region: 
Celia Magro 
Radio Shack 

29548 Southfield Rd., Suite 200 
Southfield, Ml 48076 
313/552-9290 

Houston Region 
Jim Savoie 
Radio Shack 
71 19 San Pedro 
San Antonio, TX 78216 
512/341-2622 

Kansas City Region: 
Dan Hennessey 
Radio Shack 

9400 36th Avenue, North 
Minneapolis, MN 55427 
612/546-4888 

Los Angeles Region: 
Terry Kramer 
Radio Shack 
14126 E. Firestone 
Santa Fe Springs, CA 90670 
213/921-2659 

Louisville Region: 
Penny Shattuck 
Radio Shack 
553 N. Court, Suite 175 
Palatine, IL 60067 
312/991-2275 

Miami Region: 
Peter Lenkway 
Radio Shack 

4360 N. Federal Highway 
Ft. Lauderdale, FL 33308 
305/493-5021 

New York Region: 
Bob Sochor 
Radio Shack 

6 East 39th Street, Room 401 
New York, NY 10016 
212/696-9800 

Mick Nuspl 

Radio Shack 

6 East 39th Street, Room 401 

New York, NY 10016 

212/696-9800 

Norfolk Region: 
Jerry Proffitt 
Radio Shack 
5701 West Park Drive, 
Suite 205 

Charlotte, NC 28210 
704/527-7442 

Philadelphia Region: 
Donald Wallick 
Radio Shack 

Rt. 130 & Cinnaminson Ave. 
Cinnaminson, NJ 08077 
609/829-6911 

Madelyn Lesnick 

Radio Shack 

Crest Plaza 

Cedar Crest Blvd. & U.S. 22 

Allentown, PA 18104 

215/395-5755 



Pittsburgh Region: 
Winston Ferrell 
Radio Shack 
1679 Washington Road 
Pittsburgh, PA 15228 
412/833-1918 

San Diego Region: 
Bob Norman 
Radio Shack 
12821 Knott Street 
Garden Grove, CA 92641 
714/894-1371 x255 

San Francisco Region: 
Steve Terhune 
Radio Shack 

1291 E. Hillsdale, Suite 211 
Foster City, CA 94404 
415/574-1708 

Seattle Region: 
Annie Gillvan 
Radio Shack 

5030 Roosevelt Way, N.E. 
Seattle, WA 98105 
206/527-0940 

Tampa Region; 
Paul Hoagland 
Radio Shack 
5729 N. Hoover Blvd., 
Suite 230 

Tampa, FL 33614-5373 
813/886-2974 

Washington, D.C. Region 
Kevin Hogans 
Radio Shack 
Computer Center #7267 
48 W. Ridgley Road 
Lutherville, MD 21093 
301/561-2474 



Eastern Educational 
Marketing Manager: 

Ron Moore 

Radio Shack 

1400 One Tandy Center 

Fort Worth, TX 76102 

817/390-3910 



Western Educational 
Marketing Manager: 

Scott Bowers 

Radio Shack 

1400 One Tandy Center 

Fort Worth, TX 76102 

817/390-3910 J3 



Model 12 Function Keys 



Robert Carroll 
111 Folly Road 
Charleston SC 29407 
CIS. NO. 70505,754 



The TRS-80 Model 12 has eight function keys— F1 thru 
F8. Below is a sample program showing how they can be 
used in a menu program to branch to eight sub-programs. 
Try it, you may like it. 

10 REM -MENU/PG- TO UTILIZE FUNCTION KEYS. 
20 CLS 

DEFSTR S 
SB=CHR$(25) 
SW=CHR$(26) 
30 PRINT TAB(32)SW" MENU/PG " 
PRINT 
PRINT 
PRINT SB 
40 PRINT TAB(15)SW" <F 1> FOR OPTION 1 " ; 

: PRINT SB; 
50 PRINT TAB(45)SW" <F 5> FOR OPTION 5 " 
: PRINT 
: PRINT SB 
60 PRINT TAB(15)SW" <F 2> FOR OPTION 2 "; 

: PRINT SB; 
70 PRINT TAB(45)SW" <F 6> FOR OPTION 6 " 
: PRINT 
: PRINT SB 
80 PRINT TAB(15)SW" <F 3> FOR OPTION 3"; 

: PRINT SB; 
90 PRINT TAB(45)SW" <F 7> FOR OPTION 7 " 
: PRINT 
: PRINT SB 
100 PRINT TAB(15)SW" <F 4> FOR OPTION 4"; 
: PRINT SB; 

: PRINT TAB(45)SW" <F 8> FOR OPTION 8 " 
110 PRINT SB 
120 A$=INPUT $(1) 
130 B1$=CHR$(01) 

B2$=CHR$(02) 
B3$=CHR$(04) 
B4$=CHR$(12) 
140 B5$=CHR$(21) 

B6$=CHR$(16) 

B7$=CHR$(14) 

B8$=CHR$(19) 

150 X$=B1$+B2$+B3$+B4$+B5$+B6$+B7$+B8$ 

160 Y=INSTR(X$, A$) 

170 ON Y GOTO 190, 200, 210, 220, 230, 240, 250, 260 
180 PRINT "TRY AGAIN YOU GOOFED" 

: GOTO 120 
190 PRINT " < Fl > IT WORKS. " 

: GOTO 270 
200 PRINT " < F2 > IT WORKS. " 

: GOTO 270 
210 PRINT " < F3 > IT WORKS. " 

: GOTO 270 
220 PRINT " < F4 > IT WORKS. " 

: GOTO 270 
230 PRINT " < F5 > IT WORKS. " 

: GOTO 270 
240 PRINT " < F6 > IT WORKS. " 

: GOTO 270 
250 PRINT " < F7 > IT WORKS. " 

: GOTO 270 
260 PRINT " < F8 > IT WORKS. " 

: GOTO 270 
270 GOTO 120 *H 
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Computer Customer Service 



Creating a Network 2 Color 
SCRIPSIT Lab 



With Color Scripsit for the TRS-80 Color Computer and a 
Network 2 Controller, you can set up a Network 2 Color 
Scripsit lab in your classroom. 

Color SCRIPSIT word processing puts an end to erasing, 
strikeovers, and messy correcting fluids. Students can type- 
in and edit their themes and reports right on the screen. They 
can easily insert, delete, move and duplicate words, sen- 
tences, even whole paragraphs. Their text can then be 
printed out or saved to disk and evaluated by the teacher at a 
later time. 



THE SETUP 

The teacher's Host computer is a 32K Color Computer 
(Cat. no. 26-3003) with a single disk drive (Cat. no. 26-3022). 
Disk Scripsit (Cat. no. 26-3255) is running in the Host. 

A Network 2 controller (Cat. no. 26-121 1) connects the 
Host computer with each of the Student Stations. The "Baud 
Rate" switch is set at 1500, and the "Mode" switch is set at 
MPLX. Up to 16 Student Stations can be connected to the 
Host via the Network 2. Each Student Station is a 16K Color 
Computer (Cat. no. 26-3004) with standard Color BASIC. 
Each Student Station contains a Scripsit Program Pak 
(Cat. no. 26-3105). 



SENDING DOCUMENTS TO THE STUDENT STATIONS 

The teacher may have written a document and saved it 
as "PRACTICE" on a diskette to show the students. 

At the Host computer, the teacher chooses option #3 
(SAVE TEXT) from the Main Menu and then option #2 (TO 
TAPE) from the save sub-menu. Enter the file name, in this 
case "PRACTICE", and press (enter) . Press (enter) 
at the next prompt. When the teacher is prepared to send 
information, students should set up their stations. 

To prepare to receive the information from the teacher, 
the students should do the following: Choose option #4 
(LOAD FROM TAPE) from the Main Menu. Enter the file 
name, "PRACTICE" and press Ce n t e fT) . Press f eIsTTer") 
at the next line. Press (enter ) a third time and the word 
"SCANNING" will appear on the Student screen. When all 
students are "SCANNING", the teacher will press CEHTFBD 
at the Host for the third time. The word "RECORDING" will 
appear at the Host station. When the Student Station has 
found the file, the word "LOADING" will appear and the file 
name will be in the lower left-hand corner. 

The Host will return to the Main Menu when it has fin- 
ished sending. The Student Stations will also return to the 
Main Menu. 



RECEIVING DOCUMENTS FROM THE STUDENT 
STATIONS 

Set the Input Select knob on the Network 2 Controller to 
the appropriate student station number. 

The student is now ready to send a prepared document 
to the Host to be saved on the Host disk or to be printed out. 

The Host computer chooses option #4 (LOAD TEXT) at 
the Main Menu and then option #2 (FROM TAPE) from the 
sub-menu. The teacher types in the file name at the Host 
and presses (ent e r1 . Press ( E n t e fO again. Press 
(ent E~Rl a third time and the word "SCANNING" will ap- 
pear on the Host screen. At the student station, choose option 
#3 (SAVE ON TAPE) from the Main Menu. The student then 
types in the file name and presses Center) . Press 
(enter) again. Press (enter) a third time and 
"RECORDING" will appear at the student station. When the 
Host has found the file, the word "LOADING" will appear and 
the file name will be in the lower left-hand comer. 

The Student Station will return to the Main Menu when it 
has finished sending. The Host will also return to the Main 
Menu after the document has been loaded. 

PRINTING DOCUMENTS 

Printing can be done directly from the Student Station by 
connecting a printer to the Student Station. Printing can also 
be done through the Host. 

To print directly from the Student Station, connect one 
end of the printer cable to the Color Computer in the socket 
marked "SERIAL", and the other end to the printer. The 
Student then selects option #5 (PRINT) from the Main Menu 
and then option #1 (PRINTER) from the sub-menu. If all 
connections have been made properly the document will 
then be printed on the printer. NOTE: If you attempt to print 
and the printer is not ready, the message "PRINTER NOT 
READY" will appear on the bottom line of the screen. There is 
no way to return to the Main Menu or exit this mode except 
through printing the document or by pressing the reset but- 
ton. Pressing reset will erase the document. 

To print the document from the Host computer, the Stu- 
dent Station sends the document to the Host. The Host then 
saves the document (if desired) by selecting option #3 (SAVE 
TEXT) from the Main Menu and then option #1 (TO DISK) 
from the sub-menu. Type the filename and press (enter) . 
Press fE nter ) again. Press (ente R lathird time and the 
document will be saved on the Host diskette under the speci- 
fied filename. To print the document, the Host selects Main 
Menu option #5 (PRINT), then option #1 (TO PRINTER) to 
print to the printer. As long as all connections have been 
made correctly, the document will be printed to the printer. On 
the Host, if the printer is not ready, the teacher can return to 
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the Main Menu by pressing (break 
document. 



and will not lose the 



IMPORTANT NOTE: 

Before documents are sent to the Host or the Student 
Stations, the person on the receiving end (the person who is 
about to get the document) should select Main Menu option 
#1 (CLEAR MEMORY) then press (enter) , this will clear 
the memory. If memory is not cleared before receiving a 
document, the document that is being received will append 
itself to anything already in memory. J2 
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Computer Customer Service 
Address and Phone Numbers 

8AM to 5PM Central Time 

Computer Customer Services 

400 Atrium, One Tandy Center 

Fort Worth, Texas 76102 

Model I/III/4 Business Group (817) 

Model 11/12/16 Business Group (817) 

Languages and Compilers (817) 

Color/Model 100/Pocket Computer Group (817) 
Hardware and Communications Group . . . (817) 

Educational Software (817) 

Games, Books, and New Products (817) 

Newsletter Subscription Problems (817) 



390-3939 
390-3935 
390-3946 
390-3944 
390-2140 
390-3302 
390-2133 
870-0407 



VisiCalc Commas 



A. J. Bassett 

G. Richards 

Shell Offshore Inc. 

P.O. Box 61933 

New Orleans, LA 70161 



VisiCalc is deserving of its reputation as a first-class 
program with many applications. It certainly has fit in well with 
the routine here in our office and we depend on it for keeping 
track of many of the details in our business. 

However, the printed reports that we generate on 
VisiCalc and pass on to other departments frequently cause 
the same question to be asked; "Why don't you have com- 
mas in the large numbers to make them more readable." The 
question threatened to become a complaint, so we wrote a 
short program to insert commas. After using it a few times, we 
agree that the readability of our reports is greatly enhanced. 
We are using a Model II with a Daisy-Wheel II, but the 
program should work with Model I/III and just about any 
printer. 



BAS: 



The following steps should be taken to utilize COMMAS/ 



1. Key in and save program COMMAS/BAS 

2. Create your VISICALC screen in normal manner up to 
the point where you are ready to print. 

3. Create a print file in ASCII format. VISICALC automati- 
cally adds the 7PRF" to your file name. 

4. Go to TRSDOS with /SE and enter BASIC COMMAS/ 
BAS-F:1 

5. Enter the name of your ASCII print file when requested 
and watch COMMAS/BAS do its stuff. 

PROGRAM #1 

10 PROGRAM TO INSERT COMMAS IN LARGE NUMBERS ON 

VISICALC OUTPUT: CREATED 10/82 A. J. BASSETT, 

W5UU, AND G. RICHARDS, BOX 61933, NEW ORLEANS, 

LA. 70161 
20 DEFINT A-Z 

: DIM C(25) 

: M=0 
30 CLS 

: PRINT "BE SURE THAT ASCII FILE IS CREATED IN 

VISICALC TO USE FOR INPUT TO THIS PROGRAM. BE 

SURE TO RESERVE AT LEAST ONE FILE WHEN YOU ENTER 

BASIC. I.E. ENTER BASIC -F:l. PROGRAM WILL 

RETURN TO TRSDOS IF NO MORE PRINTS ARE 

REQUESTED." 
40 PRINT"" 

: PRINT"" 

: INPUT"ENTER THE NAME OF THE VISICALC FILE";I$ 
50 OPEN "I", 1, 1$ 

: LPRINT CHR$(13); 
60 A$=INPUT$(1,1) 

: IF EOF (1) THEN 90 
70 A=ASC(A$) 

: PRINT CHR$(A); 
80 IF A=45 THEN A=32 

: A$=CHR$(A) 
90 IF A>47 AND A<58 THEN M=M + 1 

: C(M)=A 

: GOTO 60 
100 IF M=0 THEN LPRINT A$; 
110 IF M=0 THEN 60 
120 IF M=0 THEN CLOSE 

: GOTO 150 
130 C(M+1)=A 
140 I=(M-l)/3 

: IF 1=0 THEN 110 
150 FOR N=l TO I 

: LPRINT CHR$(8); 

: NEXT 
160 FOR 1=1 TO M+l 
L=(M-I+2) 
N=L/3 
II=L-N*3 

LPRINT CHR$(C(D); 
170 IF I->M THEN GOTO 130 
180 IF 11=2 THEN LPRINT CHR$(44); 
190 NEXT 

: IF EOF(l) THEN CLOSE GOTO 150 
200 M=0 

: GOTO 60 
210 PRINT"DO YOU WISH TO RUN PROGRAM AGAIN (Y/N)" 
220 A$=INKEY$ 

: IF A$="" THEN 160 
230 IF A$="Y" THEN 20 
240 SYSTEM 

Our COMMAS/BAS program has been very useful for 
reports with large numbers. Wouldn't you know that other 
people started using it on reports with negative numbers and 
long decimal numbers. Naturally things were not so hot. 

We are also including a revised program that handles 
just about anything we have encountered so far. It correctly N 
places commas in large numbers in reports containing a 

(Continued on page 1 2) 
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CompuServe 



Com 
Gam 




Not Just Fun and 



Editor's Note: The CompuServe Information Service is 
one of the largest information and entertainment services 
available to owners of personal computers and computer 
terminals. With each issue of TRS-80 Microcomputer News, 
various features of CompuServe will be discussed. The 
CompuServe Information Service is sold at Radio Shack 
stores nationwide and in Canada. 

COMPUSERVE: NOT JUST FUN AND GAMES 

The CompuServe Information Service is a games center. 
CompuServe is also a shopping and banking service. And 
now, CompuServe is moving into the limelight as an educa- 
tor. CompuServe offers valuable educational features to its 
subscribers through a variety of services. One of the most 
prominent is the Electronic Edition of Grolier's Academic 
American Encyclopedia. The Academic American will pro- 
vide owners of personal computers with a searchable nine- 
million word database of over 29,000 subject entries, 
accessible through a telephone connection to CompuServe. 
Articles in the Academic American are specifically suited for 
videotex use, formatted for video screens and written to be 
concise yet thorough. The on-line Academic American allows 
the user to type in all or part of a search word. The computer 
will search through subject headings and create a menu of all 
articles beginning with the specified term. The user can then 
choose the specific section he or she wants to read. Recog- 
nized as the premier videotex encyclopedia, the Academic 
American has been praised by reviewers as the most consist- 
ently up-to-date encyclopedia available. It answers the gen- 
eral informational needs of users ranging from school 
children to adults. 

Grolier Incorporated is the world's largest publisher of 
quality encyclopedias and reference sets. Among its leading 
products are the Encyclopedia Americana, the nation's old- 
est encyclopedia, and the New Book of Knowledge. The 
company is also a leading publisher of children's books and 
educational materials. 

THE COLLEGE BOARD: A TOOL FOR THE COLLEGE 
BOUND 

In addition to the Grolier's Academic American, 
CompuServe offers the College Board. The College Board is 
not reference material but a guide for planning your college 
experience. The College Board services include College 
Planning. College Planning helps the college bound student 
choose a college. This section discusses some of the myths 
surrounding college selection and admission and some hints 
on how not to choose a college. Preparing for the SAT dis- 
cusses whether or not studying and coaching help raise a 
student's score. This section also considers such points as 



the SAT— not a test of inborn and unchanging capacity; 
improvement of scores with the accumulation of educational 
experience; time and effort spent in development and prepa- 
ration of abilities; familiarization with question types; the deci- 
sion to take extra preparation steps and the studying of a 
wide variety of topics in relation to scores. In the "Getting a 
Head Start" section, the idea of the Advanced Placement 
program for students in high school is discussed. 

A checklist of dates for high school juniors and seniors is 
detailed under "Countdown To College", and a checklist for 
those attending college immediately out of high school is 
included in "Are You Ready For College?" "Adult Education" 
discusses the prospect of going back to school, learning 
opportunities for adults and the fact that you're never too old 
to learn. 

The "Financial Aid" section discusses how to go about 
getting financial aid, the language used in that process, and, 
also includes a program on how to meet the costs of college. 
A list of publications for college planning, financial aid, and 
other college-related topics is given in the "Read On- 
Selected Publication" section. Also provided, is a special 
Feedback section connecting subscribers who would like to 
leave questions and comments to the College Board staff. 



THE MULTIPLE CHOICE: 
ABOVE 



A, B, C, OR NONE OF THE 



Under The Multiple Choice area, subscribers will find 
numerous tests for educational purposes or just plain enjoy- 
ment. "TMC Analogies" provides you with a sample entrance 
exam for graduate school. Will you be accepted? Our apti- 
tude test may give you an idea of what to expect. "Trivia 
Unlimited" will let you test compete with yourself or others 
around the country in categories of TV, movies, history, sci- 
ence, and others. Find out how you see yourself and how well 
you take care of yourself. "The Personality Profile" will help 
you determine this by asking questions about your psycho- 
logical, physical and spiritual self, as well as other enlighten- 
ing questions. 

The Multiple Choice for Kids offers games, puzzles, and 
trivia designed for the younger set. The TMC Intelligence Test 
is similar to an IQ test, and will give you a fair estimate of how 
smart you are. The faster you complete the 30 questions the 
more your score will improve. 

"Categorically Trivial" questions you until you miss three 
consecutive picks. To improve your score, just play again. 

In "Author! Author!" The computer lets you choose the 
story you'd like to compose: The Woman of My Dreams, 
Those Were the Good Old Days, My True Self, Dear John and 
the Perfect Male. Just fill in the missing words. You can't miss 
achieving an award winning paragraph. 
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Separate yourself as a genius or just a bright person with 
the Super Brain Challenge. Super Brain includes high IQ 
questions, brain teasers and obscure facts. 

As with the College Board, The Multiple Choice also 
offers a subscriber Feedback to converse with the Multiple 
Choice staff. 

CLARKE SCHOOL FOR THE DEAF FEATURES THE 
MAINSTREAM NEWS 

One of CompuServe's newer services is the Clarke 
School for the Deaf. This service features the Mainstream 
News, a monthly newsletter about mainstreaming hearing, 
impaired students into regular schools. It contains articles for 
teachers, tutors, guidance counselors, speech therapists, 
parents, and students. 

Authors of the Mainstream News have been involved in 
the education of hearing impaired students through teaching 
different levels of school, directing hearing impaired pro- 
grams and coordinating efforts of mainstreaming programs. 

Clarke uses a support team of audiologists, teachers, 
tutors and others to achieve mainstreaming. This aspect is 
discussed and is accompanied with definitions of key words 
and phrases used in the mainstreaming process. 

The Clarke School is a boarding and day school for deaf 
children, and is located in Northampton, Mass. Clarke's 30- 
acre campus is adjacent to Smith College campus and 
houses 22 departments including research, physical, and 
dormitory facilities. 

Clarke's educational program helps students develop 
the speech, lipreading, and language skills they need to 
continue their education in schools for hearing impaired chil- 
dren. These and many other aspects are detailed in the 
Mainstream News and Announcements section of the Clarke 
School for the Deaf. 

Questions and comments about the CompuServe Infor- 
mation Service can be serrt to Richard A. Baker, editorial 
director, or Jacqueline A. Farthing, assistant editorial director, 
CompuServe Information Service, 5000 Arlington Centre 
Boulevard, P. O. Box 20212, Columbus, Ohio 43220 or 
through Feedback, main menu item 5, CompuServe User 
Information. JE1 



VisiCalc Commas 



(From page 10) 



mixture of positive, negative, decimals and large integers. So 
until someone thinks of some new application that we have 
not seen, we are all fixed up. 

REVISION OF PROGRAM #1 

10 '" COMMAS /BAS", A PROGRAM TO INSERT COMMAS IN LARGE 

NUMBERS ON VISICALC OUTPUT 
20 'BY A. J. BASSETT, G. RICHARDS, OCTOBER 1982 
30 'MODIFIED 2/83 TO ACCOMODATE MINUS SIGNS AND 

DECIMALS 
40 DEFINT A-Z 
50 DIM C(150) 
60 CLS 
70 CLS 

: PRINT "BE SURE THAT ASCII FILE IS CREATED IN 

VISICALC TO USE FOR INPUT TO THIS PROGRAM." 
80 PRINT "BE SURE TO RESERVE AT LEAST ONE FILE IN 

BASIC. I.E. ENTER BASIC -F:l" 
90 PRINT "PROGRAM RETURNS TO TRSDOS IF NO MORE 

PRINTING IS REQUESTED" 
100 PRINT"" 
110 PRINT"" 



120 INPUT"ENTER THE NAME OF THE VISICALC FILE";I$ 

130 OPEN "I", 1, 1$ 

140 LPRINT CHR$(13); 

150 * 

160 M=0 

170 A$=INPUT$(1,1) 'READ A CHARACTER FROM VISICALC 

FILE 
180 IF EOF(l) AND M=0 THEN 590 ELSE IF EOF(l) THEN 

290 
190 A=ASC(A$) 
200 PRINT CHR$(A); 'PRINT CHARACTERS ON SCREEN AS 

THEY ARE READ IN 
210 IF A<45 OR A>58 GOTO 250 'CHECK FOR NUMBER 

CHARACTERS 
220 M=M+1 'COUNT THE NUMBER OF CHARACTERS 
230 C(M)=A 

240 GOTO 170 'GO BACK AND READ IN ANOTHER CHARACTER 
250 IF M>0 GOTO 290 
260 LPRINT A$; 
270 GOTO 170 
280 ' 
290 MF=0 
300 FOR K=l TO M 'CHECK FOR ".", "/", OR ":" AND 

BYPASS COMMA COUNT 
310 IF C(K)=46 OR C(K)=47 OR C(K)=58 GOTO 340 
320 NEXT K 
330 ' 

340 IF C(l)=45 THEN MF=1 'CHECK IF NEGATIVE 
350 FOR F=2 TO K 'CHECK FOR NEEDED COMMAS 
360 IF F=2 AND MF=1 GOTO 420 
370 FOR J-l TO 5 
380 FF=F+J*3 
390 IF FF>K GOTO 420 
400 IF FF=K THEN LPRINT CHR$(8); 'BACKSPACE TO 

MAKE ROOM FOR COMMAS 
410 NEXT J 
420 NEXT F 
430 * 

440 FOR F=l TO M 'PUT IN COMMAS IF NEEDED 
450 IF F=l OR F>K GOTO 520 
460 IF F=2 AND MF=1 GOTO 520 
470 FOR J=l TO 5 
480 FF=F+J*3 

490 IF FF=K THEN LPRINT CHR$(44); 'INSERT A COMMA 
500 IF FF=>K GOTO 520 
510 NEXT J 
520 LPRINT CHR$(C(F)); 'PRINT THE REST OF NUMBERS 

EXCEPT LAST 
530 NEXT F 
540 ' 

550 IF EOF(l) GOTO 590 

560 LPRINT A$; 'PRINT FINAL CHARACTER IN BUFFER 
570 GOTO 160 'GO BACK AND START READING 
580 ' 
590 CLOSE 

: PRINT"D0 YOU WISH TO RUN PROGRAM AGAIN? 

(Y/N)"; 
600 A$=INKEY 
610 IF A$="" THEN 600 
620 IF A$="Y" THEN 80 
630 SYSTEM Js 



Sangarnef Bulletin 
Board 

The Sangarnet Bulletin Board is now on-line 24 hours a 
day, 7 days a week. Sangarnet is a free bulletin board which 
features uploading, downloading, electronic mail, bulletins, 
and much more. This 300 baud Bulletin Board also features 
System Chess, a new concept in electronic computer bulletin 
boards. Sangarnet can be accessed at 1-919-758-5261. Ji 
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or LOGO And Education 



Dr. Paul Kimmelman 

Norton City Schools 

4128 Cleveland-Massillon Road 

Norton, OH 44203 

also 

Education Editor 

Color Computer Magazine 



With the phenomenal growth of microcomputer use in 
education, the need to consider the appropriate educational 
use for computers has become a high priority for educators. 
Questions such as where do we begin, how do we use 
computers for instruction, how many do we need, where 
should we put them, what grade levels should have com- 
puter instruction, and what brand to purchase are all exam- 
ples of problems that perplex educational decision-makers. 
Unquestionably, answers will emerge as this new technologi- 
cal phenomenon for schools becomes a more significant 
component of the daily curriculum; however, for the time 
being, parents, teachers, and administrators are all being 
besieged with "expert" answers. 

In addition to the previously noted problems, the deci- 
sion of what software to use for instruction creates another 
dilemma for many educators. I find that many people tend to 
want a surplus of software instead of a few programs that 
meet each user's basic needs. Consider the fact that com- 
puter uses for instruction are primarily for such activities as 
skilr-building, tutorial, inquiry, simulation, problem-solving, 
and instructional games. When a particular program is found 
to meet these needs, why not use it and begin a search for 
other programs that meet other needs. For example, if one 
math program is sufficient for supplementing the curriculum, 
you will more than likely, not need another similar math pro- 
gram. In this instance, why not look for programs to supple- 
ment other subjects in your curriculum such as science, 
language arts, etc.? 

It seems to me there is too much confusion concerning 
educational software. In order to get started, why not begin 
with Color LOGO, in my opinion the best curricular program 
for introducing computer literacy. From Doodle Mode to the 
more complex procedures that can be written in Edit Mode 
can be found a fundamental computer programming experi- 
ence. Further, these programming opportunities can begin 
with kindergartners and continue through high school 
if desired. 

The history of LOGO merits a brief explanation. In the late 
1960's a researcher named Seymour Papert conducted a 
research program at the Artificial Intelligence Laboratory of 
the Massachusetts Institute of Technology. His goal was to 
develop a means for children to be able to easily communi- 
cate and interact with the computer. Papert, a former student 
of Swiss psychologist, Jean Piaget, wanted the computer to 
be an object for young children to think with. In his book, 
Mindstorms, Children, Computers and Powerful Ideas, Pa- 
pert noted two fundamental ideas. The ideas were: 



1 . "It is possible to design computers so that learning to 
communicate with them can be a natural process, more like 
learning French by living in France than trying to learn 
through the unnatural process of American foreign language 
instruction in the classrooms." 

2. "Learning to communicate with a computer may 
change the way other learning takes place." 

There are many versions of LOGO. Many of the com- 
puter manufacturers have made a version of LOGO available 
to their users. This has created some controversy among 
LOGO users over which version is "best" or "truly LOGO." 
While experiences with this controversy have lead me to 
believe that many educators sometimes cannot see the forest 
for the trees, I have found that Color LOGO meets what I 
consider to be the most important introductory basic require- 
ments for LOGO instruction. Perhaps in the future it will be 
necessary for us to recommend to Radio Shack that an 
enhanced version of Color LOGO will be necessary to help 
advance those who have become proficient using the Color 
LOGO version currently available. For now, however, let's 
quit worrying about who has the best LOGO and just start 
teaching it. 

Color LOGO has some unique qualities that separate it 
from some of the other versions of LOGO. First, the Doodle 
Mode, where you simply place the overlay that is supplied 
with the LOGO package on the keyboard and begin moving 
the turtle around the screen. This is an important feature 
because it enables young children to work with their pro- 
grams and satisfy their curiosity about how to move the turtle 
and create shapes. 

Another feature of Color LOGO that creates student 
excitement is the opportunity to hatch multiple turtles. This 
enables the user to create some interesting programs espe- 
cially with the feature that allows messages to be sent be- 
tween turtles. 

Finally, there is a shape command for those who prefer a 
differently shaped "turtle". 

Why Color LOGO for schools? If economy is an impor- 
tant concern, then Radio Shack has helped you meet this 
objective. Not only is the Color Computer one of the finest, 
most economical computers available, but the ROM pack 
version of LOGO is the most economical LOGO available. A 
review of other hardware and software manufactured by 
other companies that is more expensive can easily lead one 
to conclude that instead of buying one expensive computer, it 
is more practical to purchase several Color Computers and 
ROM packs thus, creating more student stations. This should 



TRS-80 Microcomputer News, September 1983 



13 



not be perceived as a criticism of other equipment, only that 
one can obtain more hardware and software on a fixed 
budget utilizing the Radio Shack equipment. Further, another 
outstanding feature of the LOGO environment is that it can be 
networked with up to sixteen student stations. 

Before I discuss school curriculum and LOGO, I want to 
mention the use of LOGO in the home. The use of computers 
for educational purposes has rapidly expanded to the home. 
LOGO is an excellent program to stimulate creative thinking 
and introduce computer programming. The Radio Shack 
Parent's Guide to LOGO will be very helpful to parents who 
want to establish an educational LOGO environment using 
their home computer. 

When using LOGO in the schools, consider allowing two 
students per computer. While one student per computer may 
be most desirable, there is some debate among educators 
whether this is the best user environment. There is an impor- 
tant need for children to be able to interact with each other 
and share their ideas. However, when combining more than 
two students, some caution should be used. Learning Style 
theory emphasizes that unless students prefer small group 
instruction, the student will not respond favorably to this 
learning environment. In addition, three or more students 
working at one computer is too cumbersome and crowded. 

Simply stated, there is really no "best" configuration for 
LOGO instruction. I suggest that you develop your program 
around your needs and the available equipment and soft- 
ware. I personally like the concept of "COLOR COMPUTER 
MINI-LOGO LEARNING LABS" for schools that have four to 
five computers per building. This configuration includes five 
computers on mobile carts. Using this type of set-up, the 
computers can be moved to a classroom and up to ten 
students can be scheduled at one time. A convenient time to 
schedule the lab work for LOGO can be during reading class 
when the class is normally divided into three or four smaller 
ability groups. With the assistance of an aide or parent volun- 
teer, the teacher can work on reading instruction with one of 
the groups while one group is completing seatwork, and the 
last group working with LOGO. 

I would also suggest that whole class instruction on 
LOGO be provided before sending the students to the com- 
puters. Two new guides from Radio Shack, Color LOGO FOR 
TEACHERS, Parts 1 and 2, provide comprehensive instruc- 
tional materials for the LOGO classes. In addition to the 
background material, activity sheets which can be duplicated 
are included. One note of caution. One of the most important 
uses of LOGO is for creative thinking. Educators must be 
resistant to the temptation to over-structure the LOGO curric- 
ulum with objectives and assignments. Teach commands but 
let students explore the use of the commands and create their 
own designs and programs. 

Finally, do not be misled by thinking LOGO is only for 
young children. George Gerhold, co-author of Color LOGO 
has used Color LOGO in his college classes with interesting 
results. His students have taken the time to develop some 
unique programs. Even if LOGO was intended for a young 
audience, its rapid growth in popularity has excited many 
adults as well. 

If you need a final goal for your school, strive to establish 
a LOGO network with a host unit and disk. The Network 2 
system will handle up to sixteen stations. For more informa- 
tion on the network configuration, see the article by Dennis 
Tanner in the May issue of Microcomputer News. 



In conclusion, the following procedures were made 
available to me by Dennis Tanner for your use with LOGO so 
turn your computer on and enjoy the fascinating things that 
can happen with this "children's computer language". 

Color LOGO 

for the 

TRS-80 Color Computer 

Sample Procedures 



BOX 1 , . . RUN MODE 


FD 50 


RT90 


FD 50 


RT90 


FD50 


RT90 


FD50 


RT90 



BOX 2 


TO BOX 


FD 50 


RT90 


FD50 


RT90 


FD50 


RT90 


FD50 


RT90 


END 



BOX 3 

TO LINE 

FD 10 
END 



BOX 4 

TO CIRCLE 

REPEAT 10 (LINE RT 36) 
END 



BOX 5 

TO PATTERN 

REPEAT 10 
END 


(CIRCLE 


RT 


36) 
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BOX 6 


TO THREE 


SETX 40 HATCH 1 PATTERN 


SETX 110 HATCH 2 PATTERN 


SETX 180 HATCH 3 PATTERN 


VANISH 


END 



BOX 7 

TO LINE 

MAKE :COLOR:COLOR + 1 

PC:COLOR 

FD 10 
END 



BOX 8 


TO THREE 


COLORSET 1 


BG2 


SETX 40 HATCH 1 PATTERN 


SETX 110 HATCH 2 PATTERN 


SETX 180 HATCH 3 PATTERN 


VANISH 


END 



J3 



Plotter for Algebra 
Teachers 



Ross H. Penix 

Bob Jones Academy 

Greenville, SC 29614 



This Extended BASIC Color Computer program will be 
of interest to Algebra I and II teachers. The program named 
Plotter is used to plot equations in the form y = f(x) on an x-y 
coordinate plane with units along the x and y axes. The 
program first displays a menu from which the user chooses 
one of fourteen equations. By entering a number from one to 
fourteen, the user sends the computer into a high-resolution 
graphic mode. After the equation line is plotted, the menu can 
be returned by pressing any key. The points that are outside 
the boundary of the screen are plotted along the boundary. 

Of course, the equations can be changed to allow stu- 
dents to check their homework! 



*** PLOTTER *** 

ROSS H. PENIX 
BOB JONES ACADEMY 
GREENVILLE, SC 29614 



8 GOTO 200 






10 Y = 10 






: RETURN 






20 Y = X 






: RETURN 






30 Y = X+4 






: RETURN 






40 Y = X-2 






: RETURN 






50 Y = X*X 






: RETURN 






60 Y = (X*X)-4 






: RETURN 






70 Y = (X+2)*(X-2) 






: RETURN 






80 Y = -X*X 






: RETURN 






90 Y = -(X+3) 






: RETURN 






100 Y = X*X*X 






: RETURN 






110 Y = -X*X*X 






: RETURN 






120 Y = X*((X*X)-9) 






: RETURN 






130 Y = X*X*X-3*X*X+X 






: RETURN 






140 Y = 4/X 






: RETURN 






200 PRINT@32, "ENTER THE NUMBER OF THE 


GRAPH" 


205 PRINT@64,"YOU WISH TO SEE PLOTTED. 


ii 


210 PRINT@128,"1 Y = 10 


8 Y 


= -X*X" 


215 PRINT@160,"2 Y = X 


9 Y 


= -(X+3)" 


220 PRINT@192,"3 Y = X+4 


10 Y 


= X*X*X" 


225 PRINT@224,"4 Y = X-2 


11 Y 


= -X*X*X" 


230 PRINT@256,"5 Y = X*X 


12 Y 


= X((X*X)-9)" 


235 PRINT@288,"6 Y = (X*X)-4 


13 Y 


= X(X*X-3X-D" 


240 PRINT@320,"7 Y = (X+2)(X-2) 


14 Y 


= 4/X" 


245 INPUT G 






250 PM0DE 4,1 






255 PCLS 






260 SCREEN 1,0 






265 LINE (127,5)-(127,185),PSET 






270 LINE (7,95)-(247,95),PSET 






275 FOR XAXIS = 7 TO 247 STEP 10 






280 PRESET (XAXIS, 95) 






285 NEXT XAXIS 






290 FOR YAXIS = 7 TO 182 STEP 8 






295 PRESET (127, YAXIS) 






300 NEXT YAXIS 






305 FOR X = -12 TO 12 STEP .05 






308 ON G GOSUB 10,20,30,40,50,60 


,70,80 


,90,100,110, 


120,130,140 






310 XP = 10*X+127 






315 YP = 95-8*Y 






320 IF XP < THEN XP = 






325 IF YP < THEN YP = 






330 IF XP > 255 THEN XP = 255 






335 IF YP > 191 THEN YP = 191 






340 PSET(XP,YP,1) 






345 NEXT X 






350 B$ = INKEY$ 






360 IF B$ = ""THEN 350 






370 IF B$<>" "THEN 200 




A 



CLS 
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Communication 



Communications Corner 



Al and Dru Simon 



Hello, and welcome back to Communications Corner. 
Since this month's issue is about education, we thought we 
would take a paragraph or two to talk about the value of 
communications in the realm of education. Computers are 
becoming more and more important in all of our lives, not 
only as a pastime, but more and more as a device for learn- 
ing, creating and, of course, communication. 

Long ago the telephone was a rare but widely spreading 
phenomenon, and today the computer is in that same posi- 
tion. So many computer users know about communications 
via these wonderful devices, and make full use of the public 
access systems all around the country such as CompuServe, 
The Source and all the Bulletin Boards we speak so much 
about. Is it unreasonable to believe that sooner or later the 
computer will replace the telephone? Probably not, espe- 
cially since Bell seems to be moving in a direction to accom- 
modate data quality communications lines. It is an exciting 
and promising era we are living in, watching a metamorpho- 
sis in communications taking place right before our eyes! 

Education also is moving to take advantage of the great 
"computer revolution" as more and more schools offer 
courses in computer languages, programming and opera- 
tion. Many areas are beginning to use computers in their 
teaching curricula, making use of the devices to help each 
student progress at his or her own individual pace. Students 
seem to learn easily from computers, very possibly because 
operating them is so easy and so much fun. Indeed, not only 
are computers used to teach subjects, but some school 
systems have begun to seriously consider "computer 
fluency" as one of their requirements for graduation from 
high school! 

More and more schools are inviting companies like 
Tandy to make presentations about computers before as- 
sembled groups of students. In fact, this past year we made a 
presentation that included students down to the Kindergar- 
ten level! Our daughter (now 6) learned the alphabet before 
she was 20 MONTHS old, using a home-written program 
which flashed the letters on the monitor, while a synchronized 
tape pronounced each letter for her, and encouraged her to 
imitate the sound. 

The possibilities and potentials for education through 
computers are truly limited only by the imagination of those 
making use of these wondrous machines! We are proud 
and excited to be a part of this new age in education and 
communication! 

Communications is a rather broad word though, and 
takes many forms. Everything from writing a letter on your 
word processor to making a videotape to present to 
your friends or special interest group can be called 
communications. 

Just for fun, this month we are going to move out of the 
realm of strict computer communications and discuss the 



possibilities that are open to you when you consider Commu- 
nications between your computer and your videotape 
recorder. 

We will discuss the use of your computer in creative 
video, plus the strict use of a VCR (Video Cassette Recorder) 
as a mass storage device. You might ask how your computer 
can help you in making interesting videotapes and the an- 
swer is simple. Creating titles, cartoons, and captions to add 
to your original filming efforts can be very rewarding and add 
a touch of professionalism and flair to your home videotape 
efforts. 

We will speak about three aspects of combining video- 
taping with computers. These are HARDWARE, SOFTWARE, 
and WETWARE. (Wetware, for those of you who have not 
heard the term before simply refers to the human brain as a 
creative device.) 

HARDWARE 

Let's start off with Hardware. Any type of VCR will do, as 
long as it has auxiliary inputs, which most do. What do we 
mean by auxiliary? Well most VCRS will accept something 
called a COMPOSITE INPUT that you plug an RG59 cable 
into. That is usually the white or black cable you find rated at 
75 ohms that you plug into the back of your television set or 
screw in, depending on the type of connector that you have. 
(It is not 300 ohm twin lead, but a cable.) You will also need a 
1 5-1 261 video selector switch, and for the computer, we have 
personally found the most success with the Color Computer. 

That does not mean that you cannot use any other type 
of computer. However, it does mean that if you choose an- 
other type, you'll have to address the problem of adapting an 
RF modulator to your computer. An RF modulator is a device 
which will take your composite output from your computer 
and modulate it on channel 3 or 4 (usually) so that you can 
input it directly into a television as opposed to a monitor. We 
will not detail how to do that in this article. 

With the Color Computer all you do is run the computer 
output cable into one of the auxiliary inputs in the video 
switch. You can then simply toggle back and forth between 
your titles or recorded media and your camera. 

SOFTWARE 

That link being established, let's talk about Software. We 
recommend that you go out and buy Radio Shack's Art 
Gallery Program (Cat. No. 26-3061). This is an exciting pro- 
gram that allows you to draw color pictures on the screen and 
save them to tape. You can also create texts that can either be 
inserted over existing pictures or (if you have 1 6K) can scroll 
horizontally or vertically across your screen. The program is 
supplied with several sample art screens in a demonstration 
of the possible creations that you can make. You can super- 
impose text upon the screens provided or over those you 
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have created yourself. The program also includes a template 
which fits nicely over the color computer keyboard, outlining 
which of your keys are used for which commands and colors 
when using Art Gallery. We have created several screens with 
Art Gallery which we use to introduce our own videotape 
efforts, a sample of which you will find below. In this manner 
you can add titles, credits, and insert commentary to your 
personal video efforts. 




Another piece of hardware-with-a-program which we 
have found interesting and useful is the X-PAD for the Color 
Computer (Cat. No. 26-1196) which allows you to take a 
sensing pen and work from a drawing board. The results 
which you see on the board will be reflected on the screen of 
the Color Computer (very nice for ISOs etc). 

Something else you might try with the Color Computer is 
called Micro Painter (Cat. No. 26-3077), in which you load a 
picture into the computer and "paint" it with three different 
palettes of four colors each. Saving the results on tape affords 
you the opportunity to use these screens in your videotape 
work. 

WETWARE 

Imagination is the most important part of any endeavor. 
Your objective in creating these screens is to try and present 
as much variety in your tapes as possible. This insertion of 
screens, titles, commentary and color will help make your 
films more interesting and help to take your efforts somewhat 
out of the "home movie" class and move it a little closer to the 
"professionally prepared" class. 

Just as variety of angles and lighting are important when 
you're using the camera, remember that variety is just as 
important when using your computer. While you cannot have 
variety of angle or closely controlled lighting in your com- 
puter, you can control background color. Psychologists 
proved long ago that colors influence mood. We suggest you 
study up on and use this technique in your films. Remember 
in your filming that greens are soothing and reds are exciting. 
Create a mood with colors on an originally drawn screen to 
be inserted in your videotape. With this technique you can 
turn a simple family gathering into an exciting and rewarding 
film that will be fun both to create and to watch! 

Aha! Let's recall that with videotape machines you not 
only have the picture to worry about, but the option of includ- 



ing sound as well! What to do about audio? When you want to 
tape the family picnic in the park what do you do about mobile 
audio, so that your efforts sound as good as they look? 

For outdoor use, we use the Cardioid Dynamic Micro- 
phone (Cat. No. 33-1071), because it is protected against 
wind noise and the like. We have solved the hardware prob- 
lem of mobile audio mixing by combining a Four Channel 
Microphone Mixer (Cat. No. 32-1 105) with an Electronic Re- 
verb Unit (Cat. No. 32-1 110). Since portability is of primary 
importance when working outdoors we mounted them on the 
back of our camera bag using Velcro. Since these are both 
battery operated items we can take them anywhere we go. 
We can mix up to eight inputs with the microphone mixer 
going into the reverb unit and mix yet another microphone 
with level control going into a reverb unit with a line going in 
as well. This works very well for us and provides us surprising 
versatility. 

For sound effects, you might want to invest in records 
(you can buy an entire sound effects library in most record 
stores), and for outdoor filming you might want to transfer 
some of the sounds to tape loops. We also carry among our 
portable equipment a small AM/FM radio-type device with 
which we can insert background music. 

All right, now that we're all set up to make exciting 
videotapes, let's talk about the VCR as a mass storage device 
which can be used in place of a disk. 

Sometimes we have a need to store great quantities of 
data, and it becomes truly inconvenient for us to take thirty 
different ten minute cassettes to dump onto a hard or floppy 
disk. It would become convenient to dump this quantity of 
data out to the VCR. There are several ways to do this. 

The first and most obvious is to simply connect the audio 
input of the VCR to the audio output of the tape recorder 
cable and then simply do a CSAVE. 

You can use a more sophisticated technique, if you can 
create a machine language program whereby you redirect 
input from the disk to the cassette port directly rather than 
have it go into memory and then out again. All you do is look 
at one input. (Please refer to our previous article where we 
discussed looking at ports and writing to ports. You'd be 
doing the same thing, but the cassette port is 255 in most 
cases.) The location of the info coming from your disk is 
dependent on your machine. So you'll have to refer to your 
technical manual to find out where to look for the info, but 
once you've found it you simply move it out to the cassette 
port, thereby storing massive quantities of data at fairly high 
baud rates. Thus you have found yet another way to interface 
between your computer and your videotape equipment. 

THE NEWS FROM PLUMB 

We hope you recall that last month we introduced 
PLUMB, a brand new newsletter published for Bulletin Board 
aficionados. PLUMB can be obtained by writing to Riverside 
Data Inc at P.O. Box 300, Harrods Creek, KY 40027 or 
inquiries can be made through CompuServe account 
72715,210 or The Source account #STQ007. Here's some 
more news for you about Bulletin boards from our friends at 
PLUMB. 

New Jersey board callers don't despair! Aphrodite East 
in Northern New Jersey, which had shut down for revamping, 
has gone back online. You may establish a new account 
number with the Sysops and join in on their varied discussion 
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groups or special interest club. Contact their small corner of 
Olympus at 201-790-5910. 

Here's an easy way to keep up with the latest news in 
arcade video games. Coin Games Net, 213-336-5535, is 
owned and operated by Amusement World arcades in Los 
Angeles. The board lists what's out and what's coming in the 
race to gobble your quarters. The board also contains a list of 
computer stores and products, a download section for com- 
puters, movie reviews, and message exchange board. 

Joke Byte in Atlantic City is stuffed with ethnic, sexist and 
generally pretty awful humor. Sysop Rob, a TV producer, said 
he started a humor board because, "With all this number 
crunching going on, I thought some humor would be a nice 
change." Joke Byte's number is 609-927-5922. 

Once again our thanks go to Ric Manning for his permis- 
sion to use these excerpts from PLUMB magazine. If you 
know of any interesting bulletin boards that you feel should be 
highlighted in PLUMB, please write to us here at Communi- 
cations Corner, and we'll forward the information on to Ric. 

THE CORNER MAILBOX 

... I have a Model III and a Model II. I wonder if it is 
possible to move a BASIC program written for the Model III 
over to the Model II, and if so, how this may be accom- 
plished. 

John Clark 
Montgomeryville, Pa 

Dear John, 

There are two ways to accomplish this. The easiest is of 
course to get yourself a Communications Package (Cat. No. 
26- 1 146) for your Model III and send your ASCII (it MUST be 
in ASCII) program to the Model II. There is also another 
program called Assembly Language Development System 
(26-4712) for the Model II which includes Model I and III 
diskettes. This package contains software for file transfers of 
non-ASCII material between Model II and Models I/III. 

Should you desire not to purchase any software, please 
refer to your Model III manual regarding device re-routing 
which we mentioned in a previous article. Please note that 
this must be done by POKEing source and destination loca- 
tions into the proper RAM vectors on the Model III. A Null 
modem must be used between the two machines. This may 
be either purchased from Radio Shack (Cat. No. 26-1496), or 
you may construct a cable as outlined in our June article. The 
only thing left to do is to activate the terminal program in your 
Model II as described in the manual. 

We are using a Model 16 ... to send news releases and 
feature stories to several newspapers . . . The (enter ) on 
the Model 16 does not register as such in the receiving 
computers ... Do you know of any commands or methods 
of making the Model 16 communicate a carriage return in 
ASCII? I understand most of the computers we will be servic- 
ing in the newspapers are based on the old TTS six-level 
paper-punch tape languages. 

Dan M. Crummett 
Stillwater, OK 

Dear Dan, 

The Model Wis quite capable of sending an (enter ) 
or carriage return which is translated as an ODHex. In the 
TRS-80 series of computers an 0A or line feed is also sent. 



Perhaps the receiving computer needs only one, not two. In 
the sample text you sent me, I see a line- wrap character 
which would indicate to me that in fact the receiving computer 
might be looking for some other character. In addition to this, 
it would be far better for you to pre-format your text with a 
word processor such as Scripsit, but you must enter a car- 
riage return from your keyboard at the physical end of each 
line. This will ensure that your text is formatted in whatever 
way you prefer. Be sure that you are not using Scripsit 's 
compressed form rather than it's ASCII form. We have made 
the mistake of doing that while sending this column to Micro- 
computer News and found that we had a problem similar to 
yours. The way we solved the problem was by hard-coding 
the carriage return as described above and then using the 
Convert Utility in Scripsit to turn the article into ASCII. Upon 
completion of that task, if you instruct your Model 16 to "LIST 
Filename, A(SCII) you should see the text in the form you 
want it in. Should you still have problems, please send us a 
sample (in single sided Model II format, please) of the data in 
the form in which you transmit. 

That will do it for this month. Please feel free to write to us 
with any questions you may have. Happy Communicating! 



MAGAZINES 



Below are five magazines of speical interest to TRS-80 
owners that we believe have editorial content of high quality 
and will be of use to our customers. 

Basic Computing— -The TRS-80 
User Journal (Name change for 
80-US Journal— covers all TRS-80's) 
3838 South Warner Street 
Tacoma, WA 98409 
(206)475-2219 

Color Computer Magazine 
Highland Hill 
Camden, ME 04843 
(207)236-9621 

Color Computer Weekly 
P.O. Box 1355 
Boston, MA 02205 

Rainbow (Covers the TRS-80 Color Computer) 
5803 Timber Ridge Dr. 
Prospect KY 40059 
(502)228-4492 

two/sixteen magazine 

P.O. Box 1216 

Lancaster, PA 1 7603 

(717)397-3364 M 
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Profile 



PROSORT: A New Profile 
Enhancement 



The small Computer Company 

P.O. Box 2910 

Fort Worth, TX 76113-2910 

By Ivan Sygoda, Director, Pentacle 

Profile III Plus section copyright 1983, Ivan Sygoda. 

All rights reserved. 



The word "enhancement" hardly describes the sophisti- 
cated, new sort utilities now available for the Model II/1 2 and 
the Model III Profile systems. Model 11/12 users can pur- 
chase the Prosort enhancement through Radio Shack. 
Model III users get it free with Profile LDOS, where it isn't 
called Prosort or any other fancy name. It's just there. 
(Model III floppy users will have to write Santa for a hard 
disk.) 

SORT OF WONDERFUL 

Whatever it's called, it's amazing. The sales people at 
your local Radio Shack will tell you that it offers greater 
flexibility and convenience in manipulating your new or exist- 
ing data bases. (Yes, all your Profile formats and data seg- 
ments are compatible with Prosort.) But most important, it 
profoundly changes the way you conceive of and organize 
your file. 

Briefly, Prosort lets you set up and store up to five print 
indexes, called USERFILE/IY1 to 5. These new indexes are 
parallel to the inquiry index (USERFILE/IX1), with which 
you're already familiar. The sort and select procedures used 
in setting up each index are a "super-version" of Profile's 
extended selection. You can sort by up to five fields, with any 
or all of the last four in descending order. What's more, the 
sort can be performed on the fields in any one data segment 
in your file, not just on the key segment. Finally— and this is 
the key to Prosort's infinite flexibility —you can make an index 
from an index. This means that you can bridge data seg- 
ments to pick records and put them in order. 

FREE AT LAST 

Model II users will especially appreciate being freed 
from the tyranny of their 85-character key segment. 
(Model III Profile allows a full 255 bytes in segment 1 .) 

For example, you can sort a file by state, and within each 
state you can have the people who ordered your widgets 
ranked in descending order, based on number of widgets 
they bought. In case of ties, the records can be sorted 
alphabetically. 

You can also sort a file by telephone area code, which 
you might have stored in segment two, assigning the exten- 
sion /IY1 to this index. Then, using it as input, you can create 
index two, sorting this time by name, a segment one field. 
This gives you a listing organized alphabetically within each 
area code. You might then create a third index, using index 



two as the input and selecting only those records that match a 
certain criterion from segment four— all customers who pur- 
chased more than $400 worth of widgets, for instance. You 
then print a report directly from index three. This report would 
show major widget purchasers, listed alphabetically within 
area code; it may save your telephone salespeople a lot of 
time and effort. 

You can also search through and sort larger files than 
before because Prosort uses all available disk space. Plus, 
you can do mass operations off an index. This means, for 
instance, that you can recalculate math formulas for an in- 
dexed selection of records. 

HOW DOES IT WORK? 

The chart illustrates the various pathways a Profile user 
can take through Prosort. You begin by indicating which of 
your data segments you want to use. Then, you specify 
whether you are creating an inquiry index (always 
USERFILE/IX1) or one of the five new print indexes. In either 
case, any existing inquiry or print index can be the foundation 
for the new index. Or else, by pressing (enter) the whole 
file is used as is, in record number order, as the starting point. 

The screen then shows you the fields from the segment 
you picked, and allows you to sort by up to five of them. For 
each field, you specify the sort field length and, except for the 
main sort field when building USERFI LE/IX1 , whether the sort 
should be in descending order. Alternately, pressing ( e s O 
(Model II/1 2) or (clear) (Model III) at the beginning of the 
sort process skips this function entirely; records will be in 
record number order or in the order of the input index. 

Select allows you to name up to 16 fields. The program 
then lists the selected fields on the screen. As shown in the 
chart, you then fill in the Boolean logic involved for each 
selection (equal to, greater than, etc.) and the match string — 
the value (name, phone number, etc.) you want the computer 
to find. Indicate "and/or" pairings in the leftmost column. The 
selection process can be bypassed altogether by pressing 
fE sc) or (clear) to select all sorted records. 

DO IT AGAIN 

You are then returned to the menu, either the Profile 
menu or your user menu. This is one way Prosort gives you 
such flexibility. You can go back into Prosort to make indexes 
from your index. You can make an inquiry index from any one 
of your print indexes and go into Inquire, Update, Add, 
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perhaps to perform a mass operation. Plus, you can print 
reports, labels, special forms, even Scripsit selections directly 
from a print index! 

The more records you have in your file, the more you'll 
come to depend on Prosort's capabilities because of the time 
and effort it saves. Sorting takes time, even at machine lan- 
guage speed. With Prosort, an array of complicated and 
lengthy sort indexes are always at your fingertips, ready to 
scan or print at the touch of a few keys. 

WHAT'S ON THE MENU? 

I said above, that Prosort represents a sort (ahem!) of 
revolution in Profile file management. You'll see this if you 
have user menus, and then acquire Prosort (or Profile LDOS). 
You used your user menus to automate the sort and selection 
processes needed to run off your various reports and labels. 
Now, after Prosort, you'll find that you can store the results of 
these sorts and selections in indexes. And so your user 
menus will call indexes instead. Your work will go much faster. 



Of course, your indexes will have to be updated when- 
ever you add, delete, or update records. But this process can 
be automated just the way you may have already automated 
the rebuilding of your inquiry index (formerly "user index"). ! 
This is what I've done with my SPONSTAT dance presenter 
data base. By creating a DO file, I can automatically update 
my three main print indexes (zip, contact name, institution), 
one right after the other, with one keystroke from my user 
menu. Then I have a cup of coffee while Profile does all the 
work. 

PROFILE Editor's Note: This is Mr. Sygoda's tenth article 
in a series of 'how-to ' Profile articles. Other articles in the 
series will be published over the next few issues in this col- 
umn. We hope that you enjoy this feature, and we look 
forward to your comments and questions on Profile. 

Pentacle is a New York City-based non-profit service 
organization specializing in administrative services for per- 
forming art groups, JM 



PROFILE FLOWCHART 



CD 



/IY1 



Enter Segment No. (1 . . . ) B n 
Index for Inquiry or Printing? B I or P 



[Automatically assigns -/IX1 to output] 
Select from Index No. (1-5 or I) or 



Enter Index No. (1-5) H n [Assigns -/IYn to output] 
T 
Select from Index No. (1-5 or I) or 



( E N T E RD for no input index M 

GD (3D CS CsD (T 



/IY2 



/IY3 



/IY4 



/IY5 



/IX1 



[ENTER] CJ_ 

whole file /IY1 I 
Y T 



rE~"N~T~E~R~P for no input index 

^) (33 CI3 (^) 



/IY2 



/IY3 



/IY4 



T 



/IY5 



/IX1 



XJ (ENTER ) 
whole file 



SORT (fields from segment n appear) 



Enter fields to sort by and press (CLEAR) to continue 

Fields m m m m 

Length B B B B 

Descend* B B B B 
*first field ascend only 



(or) 



rc~L~E~A~Fn 

No Sort 



MENU 



PROSORT 
Build Index of 
an index; 
resorting over 
same or different 
segments. 







? 






PRINT REPORTS 


PRINT LABELS 


SPECIAL FORMS 






ANSWER USUAL PROMPTS 






Enter Index No. (1-5) or ( E N T E R ) for 


in-memory M 


T 


C2D 


C3D C43 


T 


(ENTER ) 

T 


/IY1 


/IY2 


/IY3 /IY4 


/IY5 


Regular sort and 




[Pri 


nts /IYn directly] 




Select procedures 



SELECT 




? ) to end selection 

B B B B 

T 

BOOLEAN LOGIC 
EQB 


n 


m 


BBS 
SEARCH FOR . . . 

m 

Bj 

(40 char, max.) 
EH 


(or) 
i 

1 

1 
1 
1 




Enter fields to select bv pressina ( C L 
B B B B B B 

OR FIELD NAME 
*B 
B 

B 


E AF 

B 


(CLEAR) 

T 

Selects all records 


*X = OR:(SPACE BAR) = AND 



















INQUIRE-UPDATE 
Answer usual 
prompts. 
Record No. ■ 
(ENTER) 
Index by 9 (""=") 
(or) 
"item" 
CD CD to sc an, 
(ENTER) to end 
Mass ops possible 
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Pocket Computer 



PC-2 Assembly Language- Part 4 



By Bruce Elliott 



This is the fourth in a series of articles which describe the 
MPU (microprocessor unit) used in the Radio Shack PC-2 
pocket computer. It is our intention to include specific infor- 
mation about the 8-bit CMOS microprocessor, the machine 
code used by the microprocessor, as well as information 
about the PC-2 memory map, and certain ROM calls which 
are available. Please realize that much of what we are talking 
about refers to the overall capabilities of the MPU, and does 
not imply that all of these things can be done with a PC-2. 

The information provided in these articles is the only 
information which is available. We will try to clarify any ambi- 
guities which occur in the articles, but can not reply to ques- 
tions outside the scope of these articles. Further, published 
copies of TRS-80 Microcomputer News are the only source 
of this information, and we will not be maintaining back is- 
sues. Parts One, Two and Three of this series were published 
in the March, April, and May 1983 issues, respectively. 

The first three articles described the MPU used in the 
PC-2, including information on the MPU's structure and its 
machine language. We also gave you details on the 
PC-2 memory map and the locations of ROM routines which 
are available. In this article we will present two lists which we 
hope will make finding a particular machine language in- 
struction easier. We will also provide some information on 
how you might begin to use the information we have 
published. 

ALPHABETIC OP-CODE LIST 

The following list presents the PC-2 machine language 
instructions alphabetically along with each code's symbolic 
operation and its hex op-code, and byte count. 

Parts two and three of this series presented the same 
information arranged;' according to function and provided 
details on how the instructions work. 



Mnemonic 

ADC #(ab) 
ADC #(U) 
ADC #(X) 
ADC #(Y) 
ADC (ab) 
ADC (U) 
ADC (X) 
ADC (Y) 
ADC UH 
ADC UL 
ADCXH 
ADC XL 
ADC YH 
ADC YL 



Symbolic Operation 

A + #(ab) + C -► A 
A+ #(U) + C -» A 
A+ #(X) + C -> A 
A + #(Y) + C -» A 
A + (ab) + C -» A 
A + (U) + C -» A 
A + (X) + C -» A 
A + (Y) + C -» A 
A + UH + C -» A 
A + UL + C -» A 
A + XH + C -»• A 
A + XL + C -> A 
A + YH + C - A 
A + YL + C -+ A 



Hex 
Op-Code 

FD A3 a b 

FD23 

FD03 

FD 13 

A3 ab 

23 

03 

13 

A2 

22 

82 

02 

92 

12 



Byte 

4 
2 
2 
2 
3 
1 
1 
1 
1 
1 
1 
1 
1 
1 



Mnemonic 


Symbolic Operation 


Hex 
Op-Code 


Byte 


ADI #(X),i 
ADI #(Y),i 
ADI (ab),i 
ADI (U),i 
ADI (X),i 
ADI (Y),i 
ADI A,i 


#(X) + i -» #(X) 

#00 + i -+ #(Y) 
(ab) + i -> (ab) 
(U) + i - (U) 
(X) + i - (X) 
(Y) + i - (Y) 
A + i + C -» A 


FD4Fi 

FD5F i 

EFabi 

6Fi 

4Fi 

5Fi 

B3 i 


3 
3 
4 
2 
2 
2 
2 


ADR U 


UL + A -» UL 


FD EA 


2 


ADRX 


XL + A -» XL 


FDCA 


2 


ADR Y 


YL + A -» YL 


FD DA 


2 



AEX 



AMO 
AM1 



AND #(ab) 
AND #(U) 
AND #(X) 
AND #(Y) 
AND (ab) 
AND (U) 
AND (X) 
AND (Y) 

AN I #(ab),i 
ANI #(U),i 
AN I #(X),i 
ANI #(Y),i 
ANI (ab),i 
ANI (U),i 
ANI (X),i 
ANI 00,i 
ANI A,i 

ATP 

ATT 

BCH + i 
BCH -i 

BCR+ i 
BCR- i 



7 4 3 


. 


U 





A -> Timer (0-7) 

-* Tinner (8) 

A -* Timer (0-7) 

1 -> Timer (8) 

A A #(ab) -» A 
A A #(U) -► A 
A A #(X) -» A 
A A #(Y) -> A 
A A (ab) -> A 
A A (U) -» A 
A A (X) -» A 
A A (Y) -► A 



#(ab) A i 
#(U) A i 
#(X) A i 
#(Y) A i 
(ab) A i 
(U) a i - 



-► #(ab) 
+ #(U) 
>#(X) 
>#(Y) 
►(ab) 
(U) 



(X) A i - (X) 
(Y) A i - (Y) 

A A i ->• A 

A -> Data Bus 



A - T 

P + i - 
P _ | - 



if C = 0, P + i 
if C = 0, P - i 



F1 



FDCE 
FD DE 



FD A9 a b 

FD29 

FD09 

FD 19 

A9ab 

29 

09 

19 

FD E9 a b i 

FD69 

FD49 

FD59 

E9ab 

69 i 

49 i 

59 i 

B9 i 

FDCC 

FD EC 

8E i 
9E i 

81 i 
91 i 



ADI #(ab),i 
ADI #(U),i 



#(ab) + i 
#(U) + i - 



* #(ab) 
#(U) 



FD EF a b i 
FD6Fi 



BCS+ i 
BCS- i 



if C = 1 , P + i -» P 
if C = 1 , P - i -> P 



83 i 
93 i 
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Mnemonic 

BHR + i 
BHR — i 

BHS+ i 
BHS- i 



Symbolic Operation 

if H = 0, P + i -* P 
if H = 0, P - i -► P 



#(ab),i 

#(U),i 

#(X),i 

#(Y),i 

(ab),i 

(U),i 

(X),i 

00,i 

A.i 



BIT #(ab) 
BIT #(U) 
BIT #(X) 
BIT #(Y) 
BIT (ab) 
BIT (U) 
BIT (X) 
BIT (Y) 



BVR + 
BVR- 

BVS + 
BVS- 

BZR + 
BZR- 

BZS + 
BZS- i 

CDV 

CIN 



CPA #(ab) 
CPA #(U) 
CPA #(X) 
CPA #(Y) 
CPA (ab) 
CPA (U) 
CPA (X) 
CPA (Y) 
CPAUH 
CPA UL 
CPAXH 
CPA XL 
CPA YH 
CPA YL 

CPI A,i 
CPI UH.i 
CPI UL.i 
CPI XH.i 
CPI XL,i 
CPI YH.i 
CPI YL.i 

DCA #(U) 
DCA #(X) 
DCA #(Y) 



if H = 1 , P + 
if H = 1 , P - 



#(ab) A i 



#(U) A i 
#(X) A i 

#(Y) A i 

(ab) A i 
(U) A i -» Z 
(X) A i -► Z 
(Y) A i -» Z 
A A i -> Z 



A A #(ab) -» Z 
A A #(U) - Z 
A A #(X) -> Z 
A A #(Y) -» Z 
A A (ab) -► Z 
A A (U) -> Z 
A A (X) -* Z 
A A (Y) -y Z 

if V = 0, P + i -» P 
if V = 0, P - i -» P 



if V = 1 


P + 


-»• p 


if V = 1 


p _ 


-> p 


if z = o, 


p + 


- p 


if z = o, 


p - 


-»• p 


if Z = 1, 


p + 


-> p 


if Z=1 


p - 


-> p 



-> Divider 

A - (X), X + 1 -» X 

A - #(ab) 

A - #(U) 

A - #(X) 

A - #(Y) 

A - (ab) 

A - (U) 

A - (X) 

A - (Y) 

A - UH 

A - UL 

A - XH 

A - XL 

A - YH 

A - YL 

A - i 
UH - i 
UL - i 
XH - i 
XL - i 
YH - i 
YL - i 

A + #(U) + C - A 
A + #(X) + C -> A 
A + #(Y) + C -► A 



Hex 
Op-Code 

85 i 
95 i 

87 i 
97 i 

FD ED a b i 

FD6D 

FD4D 

FD5D 

EDabi 

6D i 

4D i 

5D i 

BFi 

FD AF a b 

FD2F 

FDOF 

FD 1F 

AFab 

2F 

OF 

1F 

8D i 
9D i 

8Fi 
9Fi 

89 i 
99 i 



9B 



FD8E 



F7 



FD A7 a b 


FD27 


FD07 


FD 17 


A7ab 


27 


07 


17 


A6 


26 


86 


06 


96 


16 


B7 i 


6Ci 


6E i 


4C i 


4E i 


5C i 


5E i 


FD AC 


FD 8C 


FD9C 



Byte 

2 
2 

2 
2 

5 
3 
3 
3 
4 
2 
2 
2 
2 

4 
2 
2 
2 
3 
1 
1 
1 

2 
2 

2 
2 

2 
2 

2 
2 



Mnemonic 

DCA (U) 
DCA (X) 
DCA (Y) 

DCS #(U) 
DCS #(X) 
DCS #(Y) 
DCS (U) 
DCS (X) 
DCS (Y) 

DEC A 
DECU 
DEC UH 
DEC UL 
DECX 
DECXH 
DEC XL 
DECY 
DEC YH 
DEC YL 



DRL #(X) 
DRL (X) 



DRR #(X) 
DRR (X) 



EAI i 

EOR #(ab) 
EOR #(U) 
EOR #(X) 
EOR #(Y) 
EOR (ab) 
EOR (U) 
EOR (X) 
EOR (Y) 

HLT 

INC A 
INC U 
INC UH 
INC UL 
INCX 
INCXH 
INC XL 
INC Y 
INC YH 
INC YL 

ITA 

JMP i,j 

LDA #(ab) 
LDA #(U) 
LDA #(X) 
LDA #(Y) 



Symbolic Operation 

A + (U) + C - A 
A + (X) + C -» A 
A + (Y) + C -> A 

A - #(U) - C[^ A 
A - #(X) - C -► A 
A - #(Y) -_C -» A 
A - (U) - C - A 
A - (X) - C -» A 
A - (Y) - C -♦ A 

A - 1 -► A 
U - 1 - U 

UH - 1 -» UH 
UL - 1 ^ UL 
X - 1 -» X 
XH - 1 - XH 
XL - 1 ^ XL 
Y - 1 -> Y 
YH - 1 ^ YH 
YL - 1 - YL 







n - 












L_ 


,, 




I 









(X) or #(X) 



LO 



A 
A© i 



(X) or #(X) 



A 



A #(ab) 
A #(U) -+ A 
A © #(X) -+ A 
A © #(Y) -» A 
A © (ab) -> A 
A © (U) - A 
A © (X) -► A 
A © (Y) - A 



A 



A + 1 


-► A 


U + 1 


- U 


UH + 


1 - UH 


UL + 


1 - UL 


X + 1 


-+ X 


XH + 


1 -» XH 


XL + 


1 -» XL 


Y + 1 


-» Y 


YH + 


1 -» YH 


YL + 


1 - YL 



IN -> A 

i -+ PH, j - 

#(ab) -» A 
#(U) -> A 
#(X) -» A 
#(Y) - A 



PL 



Hex 


Op-Code 


AC 


8C 


9C 


FD2C 


FD0C 


FD 1C 


2C 


OC 


1C 


DF 


66 


FD62 


62 


46 


FD42 


42 


56 


FD52 


52 


FD D7 


D7 



FD D3 
D3 



BD i 

FD AD a b 

FD2D 

FD0D 

FD ID 

ADab 

2D 

0D 

1D 

FD B1 



64 


FD60 


60 


44 


FD40 


40 


54 


FD 50 


50 


FD BA 


BA ij 


FD A5 a b 


FD25 


FD05 


FD 15 



Byte 

1 
1 
1 

2 
2 
2 
1 
1 
1 

1 
1 
2 

1 
1 

2 
1 
1 
2 
1 
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Hex 


Mnemonic 


Symbolic Operation 


Op-Code 


LDA (ab) 


(ab) -> A 




A5ab 


LDA (U) 


(U)- A 




25 


LDA (X) 


(X)- A 




05 


LDA (Y) 


(Y)-+ A 




15 


LDA UH 


UH -» A 




A4 


LDA UL 


UL ^ A 




24 


LDAXH 


XH -» A 




84 


LDA XL 


XL ^ A 




04 


LDA YH 


YH -» A 




94 


LDA YL 


YL -> A 




14 


LDE U 


(U) -» A, U-1 -« 


U 


67 


LDEX 


(X) -► A, X - 1 -» 


X 


47 


LDE Y 


(Y) - A, Y-1 - 


Y 


57 


LDI A,i 


i -» A 




B5 i 


LDI S,i,j 


i ~* SH, j -> SL 




AA i j 


LDI UH.i 


i -> UH 




68 i 


LDI UL,i 


i - UL 




6Ai 


LDI XH,i 


i -» XH 




48 i 


LDI XL,i 


i -»• XL 




4A i 


LDI YH,i 


i -» YH 




58 i 


LDI YL,i 


i -► YL 




5Ai 


LDX P 


P -» X 




FD58 


LDXS 


S -» X 




FD48 


LDX U 


U -> X 




FD28 


LDXX 


X -» X 




FD08 


LDX Y 


Y -» X 




FD 18 


LIN U 


(U) - A, U + 1 - 


U 


65 


LIN X 


(X) -» A, X + 1 -» 


X 


45 


LIN Y 


(Y) -> A, Y + 1 -> 


Y 


55 


LOP UL,i 


UL - 1 - UL 




88 i 




If borrow = 


= 0, P - 


i -» P 



NOP 



OFF 



-> BF 



ORA #(ab) 


A v #(ab) -► A 


ORA #(U) 


A v #(U) -► A 


ORA #(X) 


A v #(X) - A 


ORA #(Y) 


A v #(Y) -» A 


ORA (ab) 


A v (ab) -> A 


ORA (U) 


A v (U) -» A 


ORA (X) 


A v (X) -» A 


ORA (Y) 


A v (Y) -» A 


ORI #(ab),i 


#(ab) v i -> #(ab) 


ORI #(U),i 


#(U) v i -► #(U) 


ORI #(X),i 


#(X) v i -» #(X) 


ORI #(Y),i 


#(Y) v i -► #(Y) 


ORI (ab),i 


(ab) v i -»• (ab) 


ORI (U),i 


(U) v i - (U) 


ORI (X),i 


(X) v i - (X) 


ORI (Y),i 


(Y) v i - (Y) 


ORI A,i 


A v i -► A 


POP A 


(S + 1) -> A, S + 1 


POP U 


(S + 1) -» UH, 




(S + 2) -» UL.S + 2 


POPX 


(S + 1) -» XH, 




(S + 2) -► XL.S + 2 


POP Y 


(S + 1) -» YH, 




(S + 2) -> YL.S + 2 



38 



FD4C 



FD AB a b 


FD2B 


FDOB 


FD 1B 


ABab 


2B 


OB 


1B 


FD EB a b 


FD6B i 


FD4B i 


FD5B i 


EB a b i 


6B i 


4B i 


5B i 


BB i 


FD 8A 


FD 2A 


FDOA 


FD 1A 

















Hex 


Byte 


Mnemonic 


Symbolic Operation Op-Code 


3 


PSH A 


A - (S), S-1 - S 


FDC8 




PSH U 


UL - (S), 








UH - (S-1), S-2 - 


-+S FD A8 




PSH X 


XL - (S), 








XH - (S-1), S-2 - 


*S FD 88 




PSH Y 


YL - (S), 








YH - (S-1), S-2 - 


+S FD 98 




RDP 


-> Display 


FDCO 




REC 


-» C 


F9 . 




RIE 
ROL 


- IE 


FD BE 




I 




J 




2 
3 


L 


C 




7 


DB 


2 




A 






2 


ROR 






2 


^ 








2 


7 




D1 


2 


A 






2 








2 


RPU 


-► PU 


E3 


2 
2 


RPV 


-v PV 


B8 


2 


RTI 


(S + 1) -► PH, 


8A 


2 




(S + 2) -► PL, 
(S + 3) - T, 




1 




S + 3 -> S 




1 


RTN 


(S + 1) -♦ PH, 
(S + 2) - PL, 


9A 


2 




S + 2 -» S 






SBC #(ab) 


A - #(ab) - C-» A 


FD A1 a b 


1 


SBC #(U) 


A - #(U) - C^ A 


FD21 




SBC #(X) 


A - #(X) - C^ A 


FD01 


2 


SBC #(Y) 


A - #(Y) - C^ A 


FD 11 




SBC (ab) 


A - (ab) - C^ A 


A1 ab 


4 


SBC (U) 


A - (U) - C-> A 


21 


2 


SBC (X) 


A - (X) - C- A 


01 


2 


SBC (Y) 


A - (Y) - C-» A 


11 


2 


SBC UH 


A - UH - C^ A 


A0 


3 


SBC UL 


A - UL - C- A 


20 


1 


SBCXH 


A - XH - C^ A 


80 


1 


SBC XL 


A - XL - C^ A 


00 


1 


SBC YH 


A - YH - C^ A 


90 




SBC YL 


A - YL - C^ A 


10 


5 
3 


SBI A, i 


A - i -"C-» A 


B1 i 


3 
3 


SDE U 


A - (U), U-1 ^ U 


63 


4 


SDEX 


A -» (X), X-1 - X 


43 


2 


SDE Y 


A -» (Y), Y-1 -» Y 


53 


2 
2 


SDP 


1 -* Display 


FDC1 


2 


SEC 


1 -» C 








FB 



SHL 



SHR 



c 




7 


^-0 






A 






0-^ 


7 




C 



D9 



D5 



Byte 

2 

2 
2 
2 
2 
1 
2 
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23 



Mnemonic 

SIE 

SIN U 
SINX 
SIN Y 

SJP 



SPU 

SPV 

STA #(ab) 
STA #(U) 
STA #(X) 
STA #(Y) 
STA (ab) 
STA (U) 
STA (X) 
STA (Y) 
STAUH 
STAUL 
STA XH 
STA XL 
STAYH 
STAYL 

STXP 
STXS 
STXU 
STXX 
STXY 

TIN 



TTA 
VCR 



VCS 



VEJ (CO) 
VEJ (C2) 
VEJ (C4) 
VEJ (C6) 
VEJ (C8) 
VEJ (CA) 
VEJ (CC) 
VEJ (CE) 
VEJ (DO) 
VEJ (D2) 
VEJ (D4) 
VEJ (D6) 
VEJ (D8) 
VEJ (DA) 
VEJ (DC) 



Symbolic Operation 

1 - IE 

A -► (U), U + 1 -* U 
A -» (X), X + 1 - X 
A -> (Y), Y + 1 -> Y 



PL -> (S), PH 
S - 2 - S, i 
i - PL 



(S-1). 

PH, 



1 



1 



PU 



PV 



A -> #(ab) 
A -> #(U) 
A - #(X) 
A -► #(Y) 
A - (ab) 
A -> (U) 
A->(X) 
A -MY) 
A -> UH 
A - UL 
A -> XH 
A - XL 
A -> YH 
A -» YL 

X - P 

X - S 

X - U 

X -> X 

X - Y 

(X) - (Y), 

X + 1 -> X, Y + 1 -» Y 

T -> A 

if C = 0, 

PH -» (S-1), PL - (S) 
(FFab) -» PH 
(FFab + 1) -» PL 
S - 2 -S 

if C = 1 , 

PH - (S-1), PL -» (S) 
(FFab) - PH 
(FFab + 1) -> PL 
S - 2 - S 

PL -» (S), S-1 -> S 
PH -> (S), S-1 -» S 
(FFab) -•> PH 
(FFab + 1) -> PL 



Hex 
Op-Code 

FD 81 

61 

41 
51 

BE i i 



E1 



A8 



FD AE a b 


FD2E 


FDOE 


FD IE 


AEab 


2E 


OE 


1E 


28 


2A 


08 


OA 


18 


1A 


FD5E 


FD4E 


FD6A 


FD4A 


FD5A 



F5 

FD AA 
C1 i 



C3 i 



CO 
C2 
C4 
C6 
C8 
CA 
CC 
CE 
DO 
D2 
D4 
D6 
D8 
DA 
DC 



Byte 

2 

1 
1 



Mnemonic 

VEJ (DE) 
VEJ (EO) 
VEJ (E2) 
VEJ (E4) 
VEJ (E6) 
VEJ (E8) 
VEJ (EA) 
VEJ (EC) 
VEJ (EE) 
VEJ (FO) 
VEJ (F2) 
VEJ (F4) 
VEJ (F6) 

VHR i 



Symbolic Operation 



VHS 



VMJ 



VVSi 



VZR i 



VZS 



if H = 0, 

PH - (S-1), PL - (S) 
(FFab) -► PH 
(FFab + 1) -» PL 
S - 2 - S 



if H = 1 , 

PH-+ (S-1), PL 
(FFab) -» PH 
(FFab + 1) -► PL 
S - 2 -» S 

PL -+ (S), S-1 - 
PH -»• (S), S-1 - 
(FFab) -+ PH 
(FFab + 1) - PL 



(S) 



if V = 1, 

PH -» (S-1), PL -» (S) 
(FFab) -» PH 
(FFab+1) - PL 
S - 2 - S 

if Z = 0, 

PH ->• (S-1), PL^(S) 
(FFab) ^PH 
(FFab + 1) ^PL 
S - 2 ^S 

if Z = 1, 

PH -» (S-1), PL^(S) 
(FFab) ^PH 
(FFab + 1) ^PL 
S - 2-+S 



Hex 
Op-Code 

DE 
EO 
E2 
E4 
E6 
E8 
EA 
EC 
EE 
FO 
F2 
F4 
F6 

C5 i 



Byte 



C7 



CDi 



CFi 



C9 i 



CBi 




d3 CM3 



S®ll3fR3mmLM3CI]C£3LI3BiO«i^S 

casLajmEiDEHimscatiiiieii^is 
BBa mm (Bca cbcbcfinnoii 

S CD SI g-^-twir-'i Us!3 © B CD OH Si Gi 



NUMERIC OP-CODE LIST 

The following list presents the PC-2 machine language 
instructions numerically and includes the hex and decimal 
values for the op-codes. Numeric values which are missing 
from the list have no valid op-code that we are aware of. 
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Hex 
Value 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

0A 

OB 

OC 

OD 

OE 

OF 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

1A 

1B 

1C 

1D 

1E 

1F 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
2A 
2B 
2C 
2D 
2E 
2F 

38 

40 
41 
42 
43 
44 
45 
46 
47 

48 i 

49 i 
4A i 
4B i 
4C i 
4D i 
4E i 
4Fi 

50 
51 
52 
53 
54 
55 
56 
57 

58 i 

59 i 
5Ai 
5B i 
5C i 



Decimal 
Value 

00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 



14 

15 

16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

56 

64 
65 

66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 

80 

81 
82 
83 
84 
85 
86 
87 

88 ■ 

89 i 

90 i 

91 i 

92 i 



Opcode 

SBC XL 
SBC (X) 
ADC XL 
ADC (X) 
LDAXL 
LDA (X) 
CPA XL 
CPA (X) 
STAXH 
AND (X) 
STAXL 
ORA (X) 
DCS (X) 
EOR (X) 
STA(X) 
BIT (X) 

SBC YL 
SBC (Y) 
ADC YL 
ADC (Y) 
LDA YL 
LDA (Y) 
CPA YL 
CPA (Y) 
STA YH 
AND (Y) 
STA YL 
ORA (Y) 
DCS (Y) 
EOR (Y) 
STA (Y) 
BIT (Y) 

SBC UL 
SBC (U) 
ADC UL 
ADC (U) 
LDA UL 
LDA (U) 
CPAUL 
CPA (U) 
STAUH 
AND (U) 
STA UL 
ORA (U) 
DCS (U) 
EOR (U) 
STA (U) 
BIT (U) 

NOP 

INC XL 
SIN X 
DEC XL 
SDE X 
INCX 
LIN X 
DECX 
LDEX 
LDI XH,i 
AN I (X),i 
LDI XL.i 
ORI (X),i 
CPI XH.i 
Bll (X),i 
CPI XL.i 
ADI (X),i 

INC YL 
SIN Y 
DEC YL 
SDE Y 
INC Y 
LIN Y 
DEC Y 
LDE Y 
LDI YH.i 
ANI (Y).i 
LDI YL.i 
ORI (Y).i 
CPI YH.i 



Hex 
Value 

5D i 
5E i 
5Fi 

60 
61 
62 
63 
64 
65 
66 
67 

68 i 

69 i 
6Ai 
63 , 
6C i 
6D i 
6E i 
6Fi 

80 
81 i 
32 
83 i 
84 
85 i 
86 
87 



89 

8A 

8Bi 

8C 

8D i 

8E i 

8Fi 

90 

91 i 
92 
93 i 
94 
95 i 
96 
97 i 
99 i 
9A 
9B i 
9C 
9D i 
9E i 
9Fi 

AO 

A1 ab 
A2 



ab 



a b 



A3 

A4 

A5 

A6 

A7 ab 

A8 

A9ab 

AAij 

ABab 

AC 

ADab 

AEab 

AFab 

B1 i 
B3 i 
B5 i 
B7 i 
B8 
B9 i 
BA ij 
BB i 
BDi 
BE ij 
BF i 



Decimal 
Value 



93 
94 
95 

96 
97 
98 
99 

100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 

128 

129 i 

130 

131 i 

132 

133 i 

134 

135 

136 

137 

138 

139 : 

140 

141 

142 

143 

144 

145 i 

146 

147 i 

148 

149 i 

150 

151 i 

153 i 

154 

155 i 

156 

157 

158 

159 



160 

161 a b 
162 

163 a b 
164 

165 a b 
166 

167 ab 
168 

169 a b 

170 i j 
171 
172 
173 
174 
175 



ab 

a b 
a b 
ab 



177 
179 

181 
183 
184 
185 
186 
187 
189 
190 
191 



Opcode 

Bll (Y),i 
CPI YL.i 

ADI (Y),i 

INC UL 

SIN U 
DEC UL 
SDE U 
INC U 
LIN U 
DEC U 
LDE U 
LDI UH,i 
ANI (U),i 
LDI UL.i 
ORI (U),i 
CPI UH.i 
Bll (U),i 
CPI UL.i 
ADI (U),i 

SBCXH 

BCR+ i 
ADCXH 
BCS+ i 
LDAXH 
BHR+ i 
CPAXH 
BHS+ i 
LOP UL,i 
BZR+ i 
RTI 

BZS + i 
DCA (X) 
BVR+ i 
BCH+ i 
BVS+ i 

SBC YH 

BCR-i 

ADC YH 

BCS - i 

LDA YH 

BHR-i 

CPA YH 

BHS-i 

BZR-i 

RTN 

BZS -i 

DCA (Y) 

BVR-i 

BCH-i 

BVS-i 

SBC UH 

SBC (ab) 
ADC UH 
ADC (ab) 
LDA UH 
LDA (ab) 
CPA UH 
CPA (ab) 
SPV 

AND (ab) 
LDI S.i.j 
ORA (ab) 
DCA (U) 
EOR (ab) 
STA (ab) 
BIT (ab) 

SBI i 
ADI A.i 
LDI A,i 
CPI A.i 

RPV 
ANI A,i 
JMP i,j 
ORI A,i 
EAI i 
SJP 
Bll A.i 



Hex 
Value 

CO 
C1 i 
C2 
C3 i 
C4 
C5 i 
C6 
C7i 
C8 
C9i 
CA 
CB i 

cc 

CD i 

CE 

CFi 

DO 
D1 
D2 
D3 
D4 
D5 
D6 
D7 
D8 
D9 
DA 
DB 
DC 
DD 
DE 
DF 

EO 
E1 
E2 
E3 



ab 



E6 

E8 

E9 

EA 

EB ab 

EC 

ED a b 

EF a b i 



F2 
F4 
F5 
F6 
F7 
F9 
FB 

FD01 
FD03 
FD05 
FD07 
FD08 
FD09 
FDOA 
FDOB 
FDOC 
FDOD 
FDOE 
FDOF 

FD 11 
FD 13 
FD 15 
FD 17 
FD 18 
FD 19 
FD 1A 
FD 1B 
FD 1C 
FD 1D 



Value 


192 


193 i 


194 


195 i 


196 


197 i 


198 


199 i 


200 


201 i 


202 


203 i 


204 


205 i 


206 


207 i 


208 


209 


210 


211 


212 


213 


214 


215 


216 


217 


218 


219 


220 


221 


222 


223 


224 


225 


226 


227 


228 


230 


232 


233 a b i 


234 


235 a b i 


236 


237 a b i 


238 


239 a b i 


240 


241 


242 


244 


245 


246 


247 


249 


251 


253 01 


253 03 


253 05 


253 07 


253 08 


253 09 


253 10 


253 11 


253 12 


253 13 


253 14 


253 15 


253 17 


253 19 


253 21 


253 23 


253 24 


253 25 


253 26 


253 27 


253 28 


253 29 



Opcode 

VEJ (CO) 
VCR i 
VEJ (C2) 
VCSi 
VEJ (C4) 
VHR i 
VEJ (C6) 
VHS i 
VEJ CC8) 
VZR i 
VEJ (CA) 
VZS i 
VEJ (CC) 
VMJ i 
VEJ (CE) 
VVSi 

VEJ (DO) 
ROR 
VEJ (D2) 
DRR (X) 
VEJ (D4) 
SHR 
VEJ (D6) 
DRL (X) 
VEJ (D8) 
SHL 

VEJ (DA) 
ROL 

VEJ (DC) 
INC A 
VEJ (DE) 
DEC A 

VEJ (EO) 
SPU 

VEJ (E2) 
RPU 

VEJ (E4) 
VEJ (E6) 
VEJ (E8) 
ANI (ab),i 
VEJ (EA) 
ORI (ab).i 
VEJ (EC) 
Bll (ab),i 
VEJ (EE) 
ADI (ab).i 

VEJ (FO) 
AEX 
VEJ (F2) 
VEJ (F4) 
TIN 

VEJ (F6) 
CIN 
REC 
SEC 

SBC #(X) 
ADC #(X) 
LDA #(X) 
CPA #(X) 
LDXX 
AND #(X) 
POPX 
ORA #(X) 
DCS #(X) 
EOR #(X) 
STA #(X) 
BIT #(X) 

SBC #(Y) 
ADC #(Y) 
LDA #(Y) 
CPA #(Y) 
LDXY 
AND #(Y) 
POPY 
ORA #(Y) 
DCS #(Y) 
EOR #(Y) 
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Hex 


Decimal 


Value 


Value 


FD 1E 


253 30 


FD 1F 


253 31 


FD21 


253 33 


FD23 


253 35 


FD 25 


253 37 


FD27 


253 39 


FD 28 


253 40 


FD 29 


253 41 


FD2A 


253 42 


FD2B 


253 43 


FD 2C 


253 44 


FD2D 


253 45 


FD2E 


253 46 


FD2F 


253 47 


FD40 


253 64 


FD42 


253 66 


FD48 


253 72 


FD49 i 


253 73 i 


FD4A 


253 74 


FD4B i 


253 75 i 


FD4C 


253 76 


FD4D i 


253 77 i 


FD4E 


253 73 


FD4Fi 


253 79 i 


FD50 


253 80 


FD52 


253 82 


FD58 


253 88 



Opcode 

STA #(Y) 
BIT #(Y) 

SBC #(U) 
ADC #(U) 
LDA #(U) 
CPA #(U) 
LDX U 
AND #(U) 
POP U 
ORA #(U) 
DCS #(U) 
EOR #(U) 
STA #(U) 
BIT #(U) 

INCXH 
DECXH 
LDXS 
ANI #(X),i 
STXX 
ORI #(X),i 
OFF 
Bll #(X).i 
STXS 
ADI #(X),i 

INC YH 
DEC YH 
LDXP 



Hex 


Decimal 




Value 


Value 


Opcode 


FD59 i 


253 89 i 


ANI #(Y),i 


FD5A 


253 90 


STX Y 


FD5B i 


253 91 i 


ORI #(Y).i 


FD 5D i 


253 93 i 


Bll #CY).' 


FD5E 


253 94 


STX P 


FD5F i 


253 95 i 


ADI #(Y),i 


FD60 


253 96 


INC UH 


FD62 


253 98 


DEC UH 


FD69 i 


253 105 i 


ANI #(U),i 


FD6A 


253 106 


STX U 


FD 6B i 


253 107 i 


ORI #(U),i 


FD6D i 


253 109 i 


Bll #(U),i 


FD6F i 


253 1 1 1 i 


ADI #(U),i 


FD81 


253 129 


SIE 


FD88 


253 136 


PSH X 


FD8A 


253 138 


POP A 


FD8C 


253 140 


DCA #(X) 


FD 8E 


253 142 


CDV 


FD98 


253 152 


PSH Y 


FD9C 


253 156 


DCA #(Y) 


FD A1 a b 


253 161 ab 


SBC #(ab) 


FD A3 a b 


253 163 a b 


ADC #(ab) 


FD A5 a b 


253 165 a b 


LDA #(ab) 


FD A7 a b 


253 167 a b 


CPA #(ab) 


FD A8 


253 168 


PSH U 



Hex 




Decimal 






Value 




Value 




Opcode 


FD A9a 


b 


253 169 a 


b 


AND #(ab) 


FD AA 




253 1 70 




TTA 


FD AB a 


b 


253 171 a 


b 


ORA #(ab) 


FD AC 




253 172 




DCA #(U) 


FD AD a 


b 


253 173 a 


b 


EOR #(ab) 


FD AE a 


b 


253 174 a 


b 


STA #(ab) 


FD AFa 


b 


253 175 a 


b 


BIT #(ab) 


FD B1 




253 177 




HLT 


FD BA 




253 186 




ITA 


FD BE 




253 190 




RIE 


FDC0 




253 192 




RDP 


FDC1 




253 193 




SDP 


FDC8 




253 200 




PSH A 


FDCA 




253 202 




ADRX 


FDCC 




253 204 




ATP 


FDCE 




253 206 




AM0 


FDD3 




253 211 




DRR #(X) 


FD D7 




253 215 




DRL #(X) 


FD DA 




253 218 




ADR Y 


FD DE 




253 222 




AM1 


FD E9 a 


b i 


253 233 a 


b i 


ANI #(ab),i 


FD EA 




253 234 




ADR U 


FD EBa 


bi 


253 235 a 


bi 


ORI #(ab),i 


FD EC 




253 236 




ATT 


FD ED a 


bi 


253 237 a 


b i 


Bll #(ab),i 


FD EF a 


bi 


253 239 a 


b i 


ADI #(ab).i 



HOW DO I USE ALL THIS? 

The primary advantage of machine language over 
BASIC is speed. Your PC-2 has a very complete BASIC so 
there really isn't a lot of reason to program in machine lan- 
guage unless you are looking for a speed advantage. Let's 
look at a couple of programs which will demonstrate how fast 
machine language is compared to BASIC. 

What we will do is write a BASIC program which will 
reverse each graphic point on the PC-2's LCD display. Any 
point which is black (on) will be turned white (off) and any 
point which is off will be turned on. We will then show you a 
similar program in machine language. This should let you 
compare the speeds of the two languages. 

First the BASIC program: 

200 WAIT 

210 CLS 

220 GCURSOR 3 

: REM SHIFT PRINTING RIGHT SLIGHTLY 
230 PRINT "Microcomputer News" 
240 FOR 1=0 TO 155 

: REM GRAPHIC COLUMNS 
250 GCURSOR I 

: REM SET GRAPHIC CURSOR 
260 A=P0INT I 

: REM STORE COLUMN VALUE 
270 B=0 

: REM NEW COLUMN - ALL POINTS OFF 
280 FOR J=6 TO STEP -1 

: REM EXAMINE DOTS 
290 C=INT(A/2M) 

: POINT ON OR OFF (1 OR 0) 
300 IF C=0 LET B=B+2"J 

: REM TURN ON IF OFF 
310 A=A-C*2~J 

: REM GET READY FOR NEXT POINT 
320 NEXT J 

: REM DO NEXT DOT 
330 GPRINT B; 

: REM PRINT REVERSED COLUMN 



340 NEXT I 

: REM DO NEXT COLUMN 
350 GOTO 350 

To use the program, enter it into your PC-2. Change line 
230 to print what ever you wish on the LCD. When you run the ♦ 
program, the LCD will be reversed one column at a time from 
left to right. 

Lets look at a machine language program to do the same 
thing: 

10 WAIT 

20 CLS 

30 GCURSOR 3 

40 PRINT "TRS-80 PC-2" 

50 POKE 18409, 72, 118. 

78, 153, 8 
60 POKE 18421, 76, 119, 139, 6, 72 

18, 154 
80 CALL 1 
90 NEXT I 



74, 0, 5, 189, 255, 65, 78, 
119, 74, 0, 158 



Looks kind of like a BASIC program doesn't it? 

With the PC-2, you will normally use BASIC as a "vehi- 
cle" for getting the machine language routine into the com- 
puter and then executing it. 

Lines 1 0-40 of this second program look a lot like the first 
four lines of our first program, and they do the same things- 
housekeeping and getting something on the LCD so the 
program can reverse it. 

Lines 50 and 60 contain the actual machine code for our 
program. POKE is a PC-2 command which tells the computer 
to "poke" values into memory. The first value following POKE 
(18409 and 18421) tells the computer where in memory to 
start poking and the remaining values are the values to be 
POKEd into successive memory locations. 

The CALL statement in line 80 tells the PC-2 to "jump" to 
the memory location specified (18409) and begin executing 
the program it finds there. If you have the computer jump to a 
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memory location and the location does not begin a valid 
program, your PC-2 may freeze or perform in an unpredict- 
able manner. 

The GOTO 100 statement in line 100 "freezes" the LCD 
and lets you see the result of the reversal. 

If you have entered and RUN the second program, you 
should have noticed that your message was printed on the 
display and then, almost instantly, the LCD was reversed. 
Quite a bit faster than BASIC'S many seconds to reverse the 
screen. 

This second program was copied from pages 62 and 63 
of your PC-2 Owner's Manual. Add lines 70 and 90 from 
those pages to see multiple reversals. I numbered the first 
program in so that both programs can be in memory at the 
same time for comparisons of their speed. 

DISASSEMBLY 

You may be curious about how the machine code in lines 
50 and 60 are able to reverse the display. To find out, we need 
to "disassemble" the machine code. The term "disassem- 
ble" means to take the hexadecimal (hex) or decimal values 
which represent a machine code program and to translate 
those values into more recognizable assembly language op- 
eration codes (op-codes.) Once you have the op-codes you 
will be better able to understand the logic that makes the 
program work. 

Here is how I went about disassembling the machine 
code from lines 50 and 60: 

1 . Find the first value which represents an instruction to 
the computer. This is the value 72 in line 50. We know 
that this is a decimal value because a hex value (on the 
PC-2) is preceded by an '&'. 

2. Locate the value 72 in the numeric op-code list. Re- 
member that the decimal values are in the second 
column. The listing looks like this: 



Hex Value 



Decimal Value 

72 i 



Op-Code 

LDI XH.i 



The Op-code is LDI XH, 



3. The 'i' in the op-code tells us that this instruction 
requires another value to be complete. 

4. A quick check in the alphabetic listing gives this listing 
for LDI XH.i: 

Hex 
Op-Code 



Mnemonic Symbolic Operation 



Byte 



LDI XH.i 



XH 



Mnemonic is just another word for op-code. The sym- 
bolic operation tells us that the value T is stored into 'XH' 
(the high 8-bits of the 1 6-bit X register). We already knew 
the Hex Op-Code. The 'Byte' information tells us that this 
instruction requires two bytes (two values.) 
Since this command requires a second value, we go 
back to line 50 in the BASIC program and get the next 
value (118). 

5. I now have two values (72 118) which represent an 
instruction to the computer. The instruction translates 
as: Load the high portion of the X register with the 
decimal value 118. 



6. I would now go back to line 50, get the next available 
value (74) and continue with steps 2-5 until I had used 
all of the available values in lines 50 and 60. 

The result of the disassembly is: 

Decimal Hex Op-Code 

Values Codes Translation 



72 118 


48 76 


LDI XH, 76H 


74 


4A00 


LDI XL, 00H 


5 


05 


LDA (X) 


1 89 255 


BD FF 


EAI FFH 


65 


41 


SIN X 


78 78 


4E4E 


CPI XL, 4EH 


153 8 


99 08 


BZR-08H 


76 119 


4C 77 


CPI XH, 77H 


139 6 


8B06 


BZS+ 06H 


72 119 


48 77 


LDI XH, 77H 


74 


4A00 


LDI XL, 00H 


158 18 


9E 12 


BCH-12H 


154 


9A 


RTN 



You should have noticed that I included the hex equiva- 
lents of the decimal values as I went along, and noticed that I 
used the hex values in my disassembled list (with an 'H' after 
those values for clarity.) The reason for doing this is that it will 
make comparisons with the PC-2 memory map a little easier. 
Also, most assembly language listings you read will use hex, 
so now is the time to start getting used to hex codes (if you 
aren't already.) 

The simplest way of getting the hex codes is to get them 
from the numerical listing of op-codes that was presented 
earlier in this article. 

Great, you say, but what do I do with all of this stuff? We 
will look at each line of the listing and see if we can make 
sense of it. To help the process, I am going to give each line a 
number (starting with 100 and incrementing by 10) to make 
referring to the lines a little easier. 
Line Decimal Hex Op-Code 

100 72 118 48 76 LDI XH, 76H 

110 74 4A00 LDI XL, 00H 

120 5 05 LDA(X) 

130 189 255 BD FF EAI FFH 



140 


65 


41 


SIN X 


150 


78 78 


4E4E 


CPI XL, 4EH 


160 


153 8 


99 08 


BZR-08H 


170 


76 119 


4C77 


CPI XH, 77H 


180 


139 6 


8B06 


BZS+ 06H 


190 


72 119 


48 77 


LDI XH, 77H 


200 


74 


4A00 


LDI XL, 00H 


210 


158 18 


9E 12 


BCH-12H 


220 


154 


9A 


RTN 



Lines 100 and 110 load the X register with the hex value 
7600. 

Line 1 20 then tells the computer to load the A register with the 
value stored in the memory location that the X register is 
pointing to (7600). A quick glance at the PC-2 memory 
map (March MCN, pg. 26) shows us that the memory 
locations beginning at 7600H and continuing to 764DH 
are part of the PC-2's LCD display. What the computer 
has done is to look at the first byte of LCD memory 
(which corresponds to the first column of dots in the 
main LCD display area) and then place a copy of the 
value in that location into the MPU's A register. 

Line 1 30 tells the computer to take the value in the A register 
and exclusive OR (XOR) it with the immediate value 
FFH. The bit pattern for FFH is: 1111 1111. 
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The exclusive OR operation compares each bit of the 
display value (stored in A) with a one bit from the FFH (a 
solid black, all on, column). If both bits are ones the 
computer stores a zero (0). If one bit is a one and the 
other is a zero, the computer stores a one. The net result 
is that after the EAI (XOR) operation, the A register 
contains a reversed copy of the original display byte. 

Line 140 contains the one byte instruction SIN X. This single 
instruction tells the computer to take the value which is 
currently in the A register (our reversed column image) 
and store that value in the memory location pointed to 
by the X register. 

If you remember (the computer does), this is currently 
the first byte of LCD RAM. Once the value from A has 
been stored, the computer will add one to the value 
currently in the X register. 

Let's pause a moment and see what has happened. With 
only eight bytes of memory we have told the computer where 
the first column of LCD memory is (7600H), we have made a 
copy of that column, reversed the copy, stored the result back 
into the first column of LCD memory (7600H) and we have 
incremented our counter (the X register) so that it now points 
to the second column of the LCD. No wonder machine 
language is so fast! 

Line 1 50 tells the computer to compare the lower 8-bits of the 
X register with the value 4EH. The computer will set its 
'flags' based on whether the value in XL is 4EH or not. 

Recall that the X register is pointing to LCD memory. A 
glance back to the PC-2 memory map shows us that if X 
contains 764EH, it is pointing just past the end (764DH) 
of LCD display sections 1 and 3. 

Line 160 instructs the computer to examine the flags which 
were set by the CPI instruction in line 1 50. If the Z flag is 
zero (Z = 0), meaning that XL did NOT contain the value 
4EH, then the computer is instructed to count back- 
wards eight bytes and continue executing the program 
from that point. If Z = 1 the computer will continue to the 
instruction in line 170. 

To count back eight bytes the way the computer will do it, 
we have to understand that the program counter (which is 
what will be reduced by eight) is already pointing to the first 
byte of the instruction in line 1 70. Count back eight from that 
point. You should have stopped on the 05H in line 120. The 
computer would continue executing instructions beginning 
with line 120. 

What the programmer did was to create a loop. The 
purpose of the loop is to have the computer move one byte at 
a time through the memory of LCD chips 1 and 3 (7600H - 
764DH) reversing each byte in memory as the computer 
comes to them. 

Line 170 tells the computer that if the value in XL was 4EH 
(from the test and compare in lines 150 and 160), then 
test the value in XH (the upper 8-bits of X) to see if a 77H 



is present. The first time the computer executes line 1 70 
the value in XH will be a 76H (put there in line 100.) 

Line 180 tells the computer to move its program counter 
forward six bytes if the value in XH WAS a 77H . Remem- 
bering that the program counter is currently pointing to 
the first byte in line 190, adding six would move the 
pointer forward to the single byte in line 220. 

Line 190 is executed only if the value XH was not a 77H. 

Line 200 will put a 00H into XL. A quick glance at the memory 
map shows us that 7700H if the first byte of LCD display 
memory for chips 2 and 4. 

Line 21 tells the computer to subtract 1 2H (1 8 decimal) from 
its current program counter value. Since the program 
counter would be pointing at the 9AH in line 220, mov- 
ing back 18 decimal would make the program counter 
point to line 120 again. 

We already know that this will cause the computer to 
move through this new section of LCD memory (start- 
ing at 7700H this time) until the value in XL reaches 
4EH. When XL reaches 4EH (this would be the second 
time), the computer would find 77H in XH (line 1 70) and 
the program counter would be moved forward to point 
at line 220 (line 180). 

Line 220 is very important in any program which began by 
BASIC executing a CALL command. If you will look 
back to the BASIC program which loaded the machine 
code into memory, you will find the CALL command in 
line 80. The purpose of the RTN instruction in line 220 of 
our machine language program is to return control of 
the computer to BASIC and the program which con- 
tained the CALL command. If you forget to do this, you 
may have to push the ALL RESET button on the back of 
the PC-2 to regain control of the computer. J3 
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rtions for the 



omputer 



V.N. Dvomychenko 
South Pasadena, CA 



Having purchased a TRS-80 Pocket Computer and 
gone through the usual experiments and games, I decided to 
test its power by programming something "hard and useful". 
After thinking about it a while I settled on the Ferro-Cardano- 
Ferrari equations for the solutions of cubic and quartic equa- 
tions. For good measure I threw in quadratic equations. (First 
degree equations are trivial, while fifth degree and beyond 
require different methods.) 

The equations I implemented come straight out of the 
CRC Handbook of Tables for Mathematics, revised fourth 
edition of 1 975, CRC Press, pages 1 29-1 32. Because of the 
need to provide for input and output routines, it took some 
time and juggling to get everything to fit into the pocket 
TRS-80; but I finally managed to do this, as shown by Listing 
1 . In the form shown by Listing 1 the program has 23 loca- 
tions free. A little bit of combining statements, using smaller 
statement numbers, etc., would probably reduce the pro- 
gram length by another 50-100 locations; but I got tired of 
playing with it, since it worked well enough for my purposes. 

A subroutine tree (hierarchy) diagram is shown in Figure 
1 . The basic structure of the program is that of: (1) a main or 
driving program, which accepts input and drives the subrou- 
tines; (2) three subroutines to perform the quadratic, cubic 
and quartic computations; (3) two output routines, one for 
real roots, one for complex; and (4) a very short (three line) 
driver for the cubic case. One logical inconsistency is that the 
routine performing the quartic calculations also outputs the 
results, whereas the other two computational routines do not 
have output statements (indeed this is the purpose of the 
three line cubic driver). The numbers above the boxes in 
Figure 1 are the starting line numbers (left hand side), the 
number of statement lines in the routine (right hand side), and 
the number of these statements which are REM statements 
(right hand side in parenthesis). 

As a check case for the program I provide the equation: 

X 4 -3X 3 + 2X 2 + 2X-4 = 
which has solutions 

2, -1, 1±i 

Listing 2 shows the actual printer output when the above 
equation is entered into the program. Note that the solutions 
come out exact, except that the real part of the complex 
solutions is off by one part in 10 6 Perhaps it should also be 
mentioned that the computer's display output is more annota- 
ted than the printer output because of the use of PAUSE 
statements. 

A check case for cubics is provided in the reference. I 
provide here another one: 

X 3 -2X 2 -X + 2 = 
which has solutions 

-1, 1, 2 

Readers who are used to essentially instantaneous re- 
sponses from a computer will be somewhat surprised how 



long it takes the pocket TRS-80; about twelve seconds for the 
quartic of equation (1). 

After having programmed up and verified your version 
of this program, here is a fun problem for you: What fraction of 
quartic equations having coefficients +1(or 0, ±1) have at 
least one real root? 

HISTORICAL EPILOGUE OF 
FERRO-CARDANO-FERRARI EQUATIONS 

Although at the present time the Ferro-Cardano-Ferrari 
Equations have a greater historical than practical signifi- 
cance, the discovery by Scipio Ferro of the equations for the 
solution of the cubic equation (ca. 1505) marks one of the 
important milestones in the renaissance of western mathe- 
matics. The equations for the fourth-degree equation were 
obtained by Ferrari at a somewhat later date. Both solutions 
were published by Cardano, under controversial circum- 
stances, 1545. 

The discovery of more general, and under some circum- 
stances superior, algorithms has reduced the practical impor- 
tance of this set of equations. However, these more general 
algorithms are of an iterative nature and are probably unsuit- 
able for pocket computers employing interpretive higher- 
order language (because of the high overhead involved). 



10 


REM 2-3-4-DEGREE EQNS 


20 


INPUT "DEGREE EQN?",N 


30 


IF N<2 THEN 20 


40 


IF N>4 THEN 20 


60 


INPUT "COEFFS (HIGH 1ST) 


70 


FOR I=N TO 1 STEP -1 


80 


INPUT "NEXT:",A(I) 


85 , 


A(I)=A(I)/E 




: NEXT I 


95 


IF N=3 THEN 200 


97 


IF N=4 THEN 500 


102 


GOSUB 120 




: GOSUB 170 


106 


IF J=0 GOSUB 180 


108 


GOTO 20 


120 


E=B*B-4*A 




: G=SQR(ABS (E)) 


130 


F=.5 




: J=2 


135 


IF E<0 THEN 155 


140 


X=(-B+G)*F 




: Y=X-G 


147 


Z=X 




: RETURN 


155 


X=~B*F 




: Y=ABS(G*F) 


160 


J=0 




: RETURN 


170 


IF J=0 RETURN 


171 


BEEP 1 




: IF J=4 THEN 176 


172 


PRINT "1ST REAL RT.",Z 


173 


IF J=l RETURN 


174 


PRINT "2ND REAL RT.",Y 


175 


IF J=2 RETURN 


176 


PRINT "3RD REAL RT.",X 


177 


IF J=3 RETURN 


178 


PRINT "4TH REAL RT.",Y 


179 


RETURN 


180 


BEEP 2 


182 


PAUSE "2 COMPLEX ROOTS" 


185 


PRINT "REAL PART",X 


190 


PRINT "IMAG. =+/-", Y 


195 


RETURN 


200 


GOSUB 300 




: GOSUB 170 


212 


IF J=l GOSUB 180 
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230 


GOTO 20 




300 


REM 3-DEGREE 




305 


E=(3*'B-C*C)/3 




310 


F=(2*c*C*C-9*B*C+27* 


A)/27 


315 


G=F*F/4+E*E*E/27 




320 


IF G<0 THEN 400 




330 


H=SQRG 

: P=H-F/2 




335 


Q=SGN '(P)*(ABS (P))~ 


(1/3) 


340 


P=-H-F/2 




345 


R=SGN (P)*(ABS (P))" 


(1/3) 


350 


Z=Q+R-C/3 




355 


X=~(R+Q)/2-C/3 




360 


Y=ABS ((R-Q)*SQR3/2] 




370 


J=l 
: RETURN 




400 


H=(F*F/4+ABS(G))*(l/6) 


410 


DEGREE 
: T=90 




415 


IF F<>0 LET T=ATN ( 


-2*SQR-G/F) 


420 


IF T<0 LET.T=180+T 




425 


S=2*H*COS (T/3). 




430 


X=S-C/3 




435 


U=H*SIN (T/3)*SQR3 




440 


Y=-S/2+U-C/3 
: Z=Y-2*U 




450 


J=3 
: RETURN 




500 


A(27)=A 
: A(28)=B 
: A(29)=C 




515 


E=D*B-4*A 




517 


F=4*A*C-A*D*D-B*B 





540 
542 



560 



518 A=F 

: B=E 
: C=-C 
520 GOSUB 300 
525 A=A(27) 

: B=A(28) 
: C=A(29) 
535 P=D*D/4-C+Z 

S=3*D*D/4-P-2*C 
IF P=0 THEN 700 
545 R=D*C-2*B-D*D*D/4 
550 U=SQR(ABS (P)) 

: R=R/U 
555 J=2 

: IF P<0 THEN 600 
T=S+R 
: E=SQR(ABS (T))/2 
565 X=-D/4+U/2 

: Y=E 
570 IF T<0 GOSUB 180 

: GOTO 580 
575 X=X+E 

: Y=X-2*E 
: Z=X 
577 GOSUB 170 
580 IF J=4 THEN 20 
585 J=4 

R=-R 
U=-U 
GOTO 560 
600 REM CMP -SQR 
605 M=SQR(S*S+R*R) 
610 E=SQR((M+S)/2) 



10 

(Entry Line) 



13 Lines 
(1 REM) 



MAIN 



Accepts input 
and drives 
subroutines. Outputs 
results of quadratic. 



120 



7(0) 



200 



QUADRATIC 



Solves quadratic 
equations. 
(No output) 



3(0) 



500 



CUBIC DRIVER 



Calls routines to 
solve cubic eqns. 
and output results. 



300 



35(1) 



QUARTIC 



Solves quartic 
eqns. and outputs 
results. 



22(1) 



170 



CUBIC 
COMPUTATIONS 



Performs the actual 
computations for 
the cubic case. 



10(0) 



180 



5(0) 



OUTPUT 
REAL ROOTS 



Display/Print 
any real roots. 



OUTPUT 
COMPLEX ROOTS 



Display/Print 

any complex roots. 



Total: 95 Lines (3 REM) 



FIG. 1 - SUBROUTINE HIERARCHY (TREE) DIAGRAM 
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: F=SQR((M-S)/2) 


615 


X=-D/4+E/2 




: Y=ABS (U+F)/2 


620 


IF Y>ABS (X)*E-4 THEN 630 


622 


Y=X 




: Z=X 


625 


GOSUB 170 




: GOTO 650 


630 


GOSUB 180 




: J=0 


650 


X=X-E 




: Y=ABS (U-F)/2 


655 


IF Y>ABS (X)*E-4 THEN 670 


657 


Y=X 




: Z=X 




: J=J+2 


660 


GOSUB 170 




: GOTO 20 


670 


GOSUB 180 




: GOTO 20 


700 


P=Z*Z-4*A 


705 


R=2*SQR(ABS (P)) 




: U=0 


710 


GOTO 555 


NOTE: SQFW 


SAMPLE 


OUTPUT 


REAL 


PART 




9.99999E-01 


IMAC 


,. =+/- 

1. 
REAL RT. 

2. 
REAL RT. 


3RD 


4TH 




-1. 



EM 
EM 
CLS 



UPPER/LOWER CASE LETTERS PRACTICE 
PROGRAMMER LEO FINKELSTEIN, JR. 



Model 100 Educational 
Programs 



Dr. Leo Finkelstein, Jr. 
38 Nightingale Trail 
Enon, OH 45323 



These are two programs for the Model 100— both edu- 
cational games for preschool age youngsters. The first 
teaches the association of upper and lower case letters. The 
second provides elementary addition practice using num- 
bers of "space men." 

With the letters practice program, be sure to have the 
(caps" lock) locked in the caps position. Then run the 
program. The child views a pattern of the first letter of the 
alphabet, then presses the corresponding capital letter on the 
keyboard. If he or she is correct, the machine plays a tune, 
then moves on the next letter in the alphabet. If incorrect, the 
machine goes through a short error routine, then returns to 
that letter. 

The addition game provides two patterns of "space 
droids" which the child counts. The numbers reflecting the 
amount in each pattern are also included. The answer is 
keyed in, (enter ) is pressed, and the machine responds. 
If correct, a tune plays; if incorrect, an error routine occurs, 
and that same number problem returns for another try. 

I hope some of your readers might find these short 
programs useful for the Model 100. My 5 1 /2 year old loves 
them. 



: X=X+1 

: IF X>26 THEN X=l 
20 U=X+64 

: L=X+96 
30 FOR Z=l TO 50 
40 PRINT STRING$(5 ,L) ;" 
50 NEXT Z 
60 A$=INKEY$ 

: IF A$="" THEN 60 
ASC(A$)=U THEN 10( 



70 
80 

82 
85 
90 
9 3 



IF 
CLS 

BEE] 
PRI 
NEX 
FOR 



FOR ZZ=1 TO 50 
P 

NT CHR$(U) ;CHR$(L) 
T ZZ 
D=l TO 50 
: NEXT D 
: CLS 
95 GOTO 30 
100 CLS 

110 FOR Gl=l TO 40 
115 SOUND (400*G1),5 
120 FOR G2=128 TO 135 
130 PRINT CHR$(G2) ; 
140 NEXT G2 
150 NEXT Gl 
160 GOTO 10 




20 REM ELEMENTARY ADDITION PRACTICE 

30 REM PROGRAMMER LEO FINKELSTEIN, JR, 

50 SEC=VAL(RIGHT$(TIME$,2)) 

60 FOR 1=1 TO SEC 

70 DUMMY=RND(1) 

80 NEXT I 

100 CLS 

A = 

B = 

C = 

110 X=INT(RNpUJ*lj2) 
120 Y = INT(RNb(l)*i0") 
122 IF X=0 OR Y=0 THEN 110 
125 CLS 

140 PRINT " " 
150 FOR A=l TO X 

PRINT CHR$(144);" "; 

NEXT A 

PRINT " . . .";X 
160 PRINT " •' 

170 PRINT " + " 
180 PRINT " " 
190 FOR B=l TO Y 

PRINT CHR$(144);" " ; 

NEXT B 

PRINT ". . .";Y 
200 PRINT @270 ,"( = )" ; 

: INPUT C 
210 IF C=X+Y THEN 300 
250 CLS 

: FOR R=l TO 18 
260 PRINT "INCORRECT "; 
270 BEEP 
280 NEXT R 
290 GOT0125 
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300 

310 



315 



3 20 



CLS 

FOR X=l TO 40 

PRINT CHR$(127+X) 
SOUND (400*X),5 
NEXT X 

FOR X=40 TO 1STEP-1 
PRINT CHR$(127+X) 
SOUND (400*X),5 
NEXT X 

GOTO100 




Note: Simulated Model 100 screens. 



J3 



Uploading \ Files 
From Model 100 to 
Model 16 (Mod II Mode) 



1 . Have or create a text file in the Model 1 00 (this will have 
a .DO extension). 

2. Connect the two computers with an RS232 cable and 
a null modem. The RS232 cable should be attached to the 
RS232 port of the Model 100, the null modem should be 
attached to the other end of the RS232 cable, and the null 
modem should be plugged into the top (or "A") serial channel 
of the Model 16. 

3. Power up the Model 16 under TRSDOS. At TRSDOS 
READY, type in SETCOM A = (2400,8, E,1), Hit fENTER j. 

4. At TRSDOS READY, type in TERMINAL. 

5. At the TERMINAL menu, type in option R to be sure 
the RAM buffer is open. If it's open, answer N to the Reset 
question. 

6. At the TERMINAL menu, choose option T. The mes- 
sage Data Carrier LOST will come up; this is OK. 

7. On the Model 100, move the cursor over TELCOM 
and hit [enter] . Hit the COD key (for stat). Type 68e1e 
and hit (enter) . Hit the COD key (for term). Now hit the 
CED key (for Upload). Answer the prompt with the file name 
of the text file in the Model 1 00 that you want to transfer to the 
16. Hit f E N T E R) . Answer the "Width:" prompt with what- 
ever you like (up to 132) and hit (enter) . 

8. The message Data Carrier RESTORED appears, 
and you can watch the file appear on the screen of the 
Model 16. 

9. When the transfer is complete, hit (break ) on the 
Model 16 to get back to the TERMINAL menu. 

10. At the TERMINAL menu on the Model 16, choose 
option C to copy what's in the RAM buffer to disk. 

1 1 . On the Model 100, hit the CT8 ) key for "Bye", then 
answer y (enter) to disconnect. 

Now you have an ASCII file on the disk (check the DIR) 
and you can use Convert to get the file into SCRIPSIT. 



Downloading ASCII 

Files From Model 16 to 
Model 100 



1. Have an ASCII file on disk in the Model 16. 

2. Follow the same procedure for connecting the two 
computers from the previous page. 

3. Power up the Model 1 6 under TRSDOS. At TRSDOS 
READY, follow the same procedure for setting the SETCOM. 

4. Same as previous #4. 

5. Same as previous #5. 

6. At the TERMINAL menu, type in OPTION "G" to get 
the file from the disk into the RAM buffer. Answer the filespec 
prompt with the name of the ASCII file in the Model 16. 

7. On the Model 100, move the cursor over TELCOM 
and hit (enter) . Hit the CED key (for stat). Type in 68e1 e 
and hit Ce n t e r ) . Hit the COD key (for term). Now hit the 
COD key (for Download). Answer the prompt with the name 
you wish the file to be stored under in the Model 100. Hit 

(ENTER) . 

8. When the transfer is complete, hit (break] on the 
Model 16 to return to the TERMINAL menu. 

9. Hit the (T1D key on the Model 100 for "bye" and 
answer "Y" (enter) to disconnect. 

You now can hit the QfjO on the Model 1 00 to return to 
the menu and you can see your text file is listed. M ove the 
"shadow" cursor over the name and hit (enter) to view 
the file. ^» 



High Accuracy 
Trigonometry on the 
Model 100 

Palmer O. Hanson, Jr. 
2149 14th Ave. SW 
Largo, FL 33540 

On page 127 of the Model 100 Owner's Manual the 
resulting value from the ATN function ranges from -n/2 to 
+ n, not from -n to n as indicated in the discussion. 

Page 218 of the Model 100 Owner's Manual suggests 
the use of the formula 4* ATN(1 ) for calculating the value of pi. 
The value obtained in that manner is correct to ten significant 
figures. An alternate formula, 2*ATN(3D13), will return a 
value for pi which is correct to the full fourteen digit range of 
the Model 100. The use of any larger argument for the ATN 
function will yield the same value. The following table com- 
pares values for pi as obtained from various formulas on the 
Model 100. 



Reference Value (from AMS-55): 

Model 100 2*ATN(3D13): 
2*ATN(2D13): 
2*ATN(1D13): 
2*ATN(1D12): 
2*ATN(1D11). 
4*ATN(1); 



3.1415 92653 58979 32384 

3.1415 92653 5898 
3.1415 92653 5896 
3.1415 92653 5896 
3.1415 92653 5878 
3.1415 92653 5698 
3.1415 92653 1932 
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0.70710 67811 86548 
0.70710 67811 1643 
0.70710 67812 5665 
0.70710 67811 8659 
0.70710 67811 8651 



Since the arguments for the trigonometric functions on 
the Model 100 are in radians, it is typically necessary to 
change from degrees to radians using the conversion factor 
pi/180. The example for the cosine function on page 132 of 
the Owner's Manual uses the conversion factor 0.01 745329. 
With that conversion factor the Model 100 will return a value 
for the cosine of 60 degrees of 0.50000013094004, not the 
value of 0.50000013093981 as listed in the example. Of 
course, we all know that the correct value for the cosine of 60 
degrees is exactly 0.5. The use of a more accurate conver- 
sion factor will yield more accurate results. Suppose we use 
the conversion factor derived from the equation 4*ATN(1)/ 
180 performed on the Model 100, or a value of 
0.01745329251774. Then the cosine of 60 degrees will be 
returned as 0.50000000011447. But if instead we use the 
conversion factor derived from the equation 2*ATN(3D13)/ 
180 performed on the Model 100, which is a value of 
0.017453292519943, then the cosine of 60 degrees will be 
returned as 0.49999999999998. 

Similar improvements in accuracy of trigonometric re- 
sults will be obtained for other arguments through the use of 
the more accurate conversion factor. For example, we all 
know that the sine of 45 degrees is exactly equal to the cosine 
of 45 degrees, and both are exactly equal to the square root 
of 2 divided by 2. Using the various conversion factors and 
again comparing to a reference value from AMS-55: 
Reference Value from AMS-55 
Model 100: sin(45*ATN(1)/45) 

cos(45*ATN(1)/45) 

sin(45*ATN(3D13)/90) 

cos(45*ATN(3D13)/90) 

Limited testing indicates that, over the range from to 90 
degrees, slightly more accurate sine and cosine values will 
be obtained by calculating the conversion factor before multi- 
plying by the input argument in degrees; e.g., 

sin(45*ATN(3D13/90)) = 0.70710 67811 8655 
cos(45*ATN(3D13/90)) = 0.70710 67811 8655 

In summary, it is a commonly used programming tech- 
nique to obtain the value of pi from a computer by executing 
the formula 4*ATN(1), but users of the Model 100 will be 
better served with an alternate formula 2*ATN(3D13). 

Note: References are made from pages 3 and 1 97 of the 
AMS-55, Handbook of Mathematical Functions with Formu- 
las, Graphs, and Mathematical Tables. J3 



Multiple Curve Graphs 

On TRS-80 Dot Matrix 
Printers 



This article presents a subroutine (MULTI-GRAPH) to 
produce high resolution graphs on TRS-80 line printers using 
a Model I/III. You will need the following hardware and 
software: 

Computer: 

Model I/III, Level II BASIC, and 16K/32K/48K 

Disk 32K/48K 
Printer: 

LP VII/LP VIII/DMP-100/DMP-200/DMP-400 



Software: 

DOTPLOT-80 Graphics Software Package (Cat. No. 
26-2023) 

With DOTPLOT-80, a new program from Radio Shack, 
the user can easily produce high resolution graphics on any 
of several different line printers. Included are various scaling 
routines for plotting, in either inches or the user's own coordi- 
nates. Titles may be drawn in any of four directions. Subrou- 
tines are provided to easily draw axes. A subroutine is 
provided in the DOTPLOT-80 manual to produce single 
curve graphs. Subroutine MULTI-GRAPH expands on this 
capability, and makes it simple to produce multiple curve 
graphs. 
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MULTI-GRAPH produces a complete multiple curve 
graph. The axes are automatically scaled for 'nice' tic mark 
values, symbols are drawn along each curve, a legend is 
produced to define the curve symbols, and a grid may op- 
tionally be included. Of course, the graph is titled and the 
axes are fully annotated. 

The MULTI-GRAPH DRIVER program is used with sub- 
routine MULTI-GRAPH to graph user data entered in data 
statements, or subroutine MULTI-GRAPH can be used to 
graph data generated within your own program. Examples 
for these two programs are provided. 

Note: 1 6K users must omit the comments (anything that 
follows an apostrophe " ' ") to conserve memory. 

Instructions for using the MULTI-GRAPH DRIVER pro- 
gram with input in data statements. 

1. Delete lines 100-4390 from the "DOTPLOT-80 SAMPLE 
PROGRAM" supplied on cassette. 

2. Type in the MULTI-GRAPH DRIVER program and subrou- 
tine MULTI-GRAPH. 

3. Enter your data on DATA statements in the following 
sequence: 

T$ = "Graph Title" 
X$ = "X Axis Title" 
Y$ = "Y Axis Title" 

For each curve: 

L$(J) = "Label for the J'th curve" 
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For each point on the J'th curve: 

X(I,J) = X for the I'th point on the J'th curve 

Y(I,J) = Y for the I'th point on the J'th curve next point. 

8888,8888 if there are more curves (goto L$(J)) 

or 

9999,9999 if this is the last curve 

4. Type: RUN 

Notes: 

A. The maximum number of curves (MC) is five, and the 
maximum number of points per curve (MP) is 25. These 
values may be changed in lines 58020 and 58030. 

B. See additional notes following the instructions for subrou- 
tine MULTI-GRAPH. 

PROGRESS ON WIDGET H 




Instructions for using the SAMPLE DATA FOR THE 
MULTI-GRAPH DRIVER PROGRAM: 



4. In your program assign values to the following variables: 

T$ = "Graph Title" 
X$ = "X Axis Title" 
Y$ = "Y Axis Title" 
NC = # of curves 

For each curve: 

L$(J) = "Label for the J'th curve" 

NP(J) = # of points on the J'th curve 

For each point on the J'th curve: 

X(I,J) = X for the I'th point on the J'th curve 

Y(I,J) = Y for the I'th point on the J'th curve 

5. Call subroutine MULTI-GRAPH: 
GOSUB 59020 

6. Repeat steps four and five for additional graphs. 
Notes: 

A. The variables used by DOTPLOT-80 are listed in the 
manual. Subroutine MULTI-GRAPH uses the following vari- 
ables in addition to those used by DOTPLOT-80: 

I, J, L$(J), S$(J), MC, MP, NC, NP(J), NS, S$(J), X(I,J), XA, 
Y(I,J), YA 

B. To plot a reference grid, include the following lines: 

59660 NX = XL + 1 ' # VERTICAL GRID LINES 
59670 NY = YL + 1 ' # HORIZONTAL GRID LINES 
59680 GOSUB 601 50 ' DRAW THE GRID 

C. To change the axis lengths, change XL and YL in line 
59150. 



1. Delete lines 100-4390 from the "DOTPLOT-80 SAMPLE 
PROGRAM" supplied on cassette with DOTPLOT-80. 

2. Type in the SAMPLE DATA FOR THE MULTI-GRAPH 
DRIVER PROGRAM, the MULTI-GRAPH DRIVER program, 
and subroutine MULTI-GRAPH. 

3. Type: RUN 

Instructions for using subroutine MULTI-GRAPH within 
your own program: 

1. Delete lines 100-4390 from the DOTPLOT-80 SAMPLE 
PROGRAM" provided on cassette with DOTPLOT-80. 

2. Type in subroutine MULTI-GRAPH. 

3. At the beginning of your program include: 

CLEAR 400 ' Clear string space 

MC = # ' # = Maximum number of curves 

MP = # ' # = Maximum # of points / curve 

GOSUB 59010 ' Set-up DOTPLOT-80 and MULTI- 

GRAPH 



Instructions for using the MULTI-GRAPH SAMPLE 
program. 

1. Delete lines 100-4390 from the "DOTPLOT-80 SAMPLE 
PROGRAM" supplied on cassette with DOTPLOT-80. 

2. Type in the MULTI-GRAPH SAMPLE program and subrou- 
tine MULTI-GRAPH. 

3. Type: RUN 

SUBROUTINE MULTI-GRAPH 



59000 
59002 

59004 
59010 
59020 
59100 
59110 
59120 
59130 
59140 
59150 

59160 
59170 



SUBROUTINE MULTI-GRAPH 

COPYRIGHT 1983 BY J. ANTHONY CERVANTES 
DAYTON, OHIO 



GOTO 

GOTO 

ML% = 

MS% = 

DIM 

DIM 

RETU 

XL = 9 

YL = 

1 CU 

S$(l 

S$( 

S$( 

S$( 

S$( 



59100 ' SETUP DOTPLOT-80 & MULTI-GRAPH 

59150 ' CALL MULTI-GRAPH 

MC*MP+50 ' MAXIMUM NUMBER OF LINES 

MC*12+25 ' MAXIMUM NUMBER OF STRINGS 



L $ ( MC ) , NP ( MC ) , X ( MP , MC ) , Y ( MP , MC ) 
MU(4*ML%) ,M2%(2*MS%) ,Z$(MS%) 
RN 

6 ' X & Y AXIS LENGTHS 

RVE SYMBOLS 

) = »*•' 

2)="0" 

3)="+" 

4)="#" 

5)=»@" 
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59180 

59190 
59200 
59210 
59220 



59231 
59241 



59250 
59260 
59270 
59280 
59290 
59300 
59310 
59320 
59330 
59340 
59350 
59360 
59 37 
59380 
59390 
59400 
59410 
59420 
59430 
59440 
59450 

59460 

5 9 4 7 
59480 

59490 

59500 
59510 
59520 

59530 
59540 
59550 
59560 

59570 
59580 

59590 
59600 

59610 
59620 
59630 
59640 
59650 
59660 
59670 
59680 
59690 
59700 

59710 
59720 



1) 
1) 



XA = XL-1 .8 

: YA=YL-.2 
XL=XL+2 
GOSUB 6001 
XL=XL-2 
X=l 

: Y = l 

: GOSUB 600 
1 FIND X M 

MAXIMUM 
XH = X( 1 
XX = XN 
YN=Y(1 
YX = YN 
FOR J=l TO 
FOR 1=1 TO 
IF X(I, J) 
IF X(I, J) 
IF Y(I,J) 
IF Y( I, J) 
NEXT I, J 
' COMPUTE 
GOSUB 6011 
GOSUB 6012 
GOSUB 6003 
GOSUB 6013 
GOSUB 6014 
Z$ = TS 
SX = 1 

X=XL/2- . 1* 
Y=YL+. 5 
GOSUB 6007 
SZ = 

FOR J=l TO 
Z$=SS(J)+" 

J ' TH CURVE 
X = XA 

: Y=YA ' P 
GOSUB 6007 
YA=YA-. 17 

LABEL 
NS=INT( (NP 

HAVE 
IF NS<1 TH 
SC=1 
X=X(1 ,J) 

: Y=Y(1,J) 
GOSUB 6005 
ZS=S$(J) 
CT=1 
GOSUB 6007 

POINT 
FOR 1=2 TO 
X=X(I, J) 

: Y=Y(I,J) 
GOSUB 6006 
Z=(I-1 )/NS 

POINT 
IF Z=INT(Z 
NEXT I 
SC = 
CT = 
NEXT J 
' NX=XL+1 
' NY=YL+1 
' GOSUB 60 
GOSUB 6010 
CLS 

: INP0T"REP 
IF LEFT$(Z 
RETURN 



START OF LEGEND 
'TOTAL PLOT LENGTH IN INCHES 
' INIT. DOTPLOT-80 



40 ' MOVE REF. POINT FOR AXES 
INIMUM, X MAXIMUM, Y MINIMUM, Y 



NC 

NP( j) 

<XN THEN XN=X(I,J) 

>XX THEN XX=X(I,J) 

<YN THEN YN=Y(I,J) 

>YX THEN YX=Y(I,J) 



AND 



LEN( 



NC 
" + L 



SET NICE SCALE FACTORS 
COMPUTE NICE X0 AND DX 
COMPUTE NICE Y0 AND DY 
SET SCALE FACTORS 
DRAW THE X AXIS 

DRAW THE Y AXIS 

THE TITLE 

CHARACTER SIZE = 5 CPI 
Z$) ' CENTER THE TITLE 

ABOVE THE GRAPH 

DRAW THE TITLE 

CHARACTER SIZE = 10 CPI 
' DRAW THE CURVES 
$(J) ' SYMBOL AND LABEL FOR THE 



OSITION OF THE CURVE LABEL 
DRAW THE CURVE LABEL 
SHIFT YA FOR THE NEXT CURVE 



(J)-1)/XL) 



EVERY NS'TH POINT WILL 



EN NX=1 ' A SYMBOL 

' USE THE SCALE FACTORS FOR X & Y 

' THE FIRST POINT 

' MOVE TO THE FIRST POINT 
' SYMBOL FOR THE J ' TH CURVE 
' CENTER THE SYMBOL AT X & Y 

' DRAW THE SYMBOL FOR THE FIRST 

NP(J) 

' THE I'TH POINT ON THE J ' TH CURVE 
' DRAW A LINE TO THE I'TH POINT 
' DRAW A SYMBOL AT EVERY NS'TH 

) GOSUB 60070 

1 NEXT POINT 

' X & Y ARE IN INCHES AGAIN 

' DON'T CENTER SYMBOLS 

' NEXT CURVE 

' # VERTICAL GRID LINES 

' # HORIZONTAL GRID LINES 
150 ' DRAW THE GRID 
' MAKE A HARDCOPY 

LOT THE SAME FIGURE? (Y/N) = ";Z$ 
$,1)="Y" GOTO 59690 



MULTI-GRAPH DRIVER PROGRAM 



58! 
58( 
58! 
58( 

58( 

58( 

58! 

58( 

58! 

58 

58 

5 8 

58 

58 
58 
58 



10 

20 

030 

040 

050 

060 

070 

080 

090 

100 

1 

1 



' MU 
CLEA 
MC = 5 
MP = 2 

CURVE 
GOSU 
READ 
IF T 
READ 
J = 
J = j + 
READ 
1 = 
READ 

CURVE 
IF X 
IF X 
1 = 1 + 

: NP( 



LTI-GRAPH DRIVER PROGRAM 



R 400 



B 59010 

T$ 
$="STOP' 

X$ ,Y$ 

1 
L$(J) 

X, Y 



CLEAR STRING SPACE 
MAXIMUM NUMBER OF CURVES 
MAXIMUM NUMBER OF POINTS PER 

SETUP MULTI-GRAPH AND DOTPLOT-8G 
READ THE GRAPH TITLE 
TOP ' STOP IF LAST GRAPH 
READ X AND Y AXIS TITLES 
INITIALIZE CURVE COUNTER 
INCREMENT CURVE COUNTER 
READ CURVE LABEL J 
INITIALIZE POINT COUNTER 
READ THE I'TH POINT ON THE J ' TH 



58160 X(I,J)=X 

: Y(I,J)=Y ' 
58170 GOTO 58120 
58180 NC=J 
58190 GOSUB 59020 
58200 GOTO 58050 
58210 END 

SAMPLE DATA PROGRAM 



STORE X AND Y 
' NEXT POINT 
' STORE # OF CURVES 
' CALL MULTI-GRAPH 
' DRAW ANOTHER GRAPH 



2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 



' SAMP 

DATA " 

DATA " 

DATA " 

DATA " 

DATA 

DATA 1 

DATA 8 
DATA 

DATA 

DATA 1 

DATA 2 

DATA 3 

DATA 4 

DATA 5 

DATA 6 

DATA 9 
DATA 



LE DATA FOR THE MULTI-GRAPH DRIVER PROGRAM 

PROGRESS ON WIDGET A" 

MONTH" 

% PERCENT COMPLETE" 

PLAN" 

, 

2, 100 



ACTUAL" 



7 

14 

25 

34 

43 

55 

999, 9999 
STOP" 



SAMPLE PROGRAM 

1000 ' MULTI-GRAPH SAMPLE PROGRAM 

1010 CLEAR 400 ' SET ASIDE STRING SPACE 

1020 MC=3 ' MAXIMUM NUMBER OF CURVES 

1030 MP=61 ' MAXIMUM NUMBER OF POINTS PER 

CURVE 
1040 GOSUB 59010 ' SET UP MULTI-GRAPH AND 

DOTPLOT-80 
1050 T$="APPROXIMATIONS TO A SQUARE WAVE" ' TITLE 
1060 XS="DEGREES" ' X AXIS TITLE 
1070 Y$="AMPLITUDE" ' Y AXIS TITLE 
1080 NC=3 ' NUMBER OF CURVES 

1090 L$(l)="l SINE WAVE" ' SET THE CURVE LABELS 
1100 L$(2)="2 SINE WAVES" 
1110 LS(3)="3 SINE WAVES" 
1120 P I = 3. 1415927 

1130 DR=PI/180 ' DEGREES TO RADIANS FACTOR 
1140 FOR J=l TO NC ' LOOP FOR CURVES 

n 50 1=0 ' INITIALIZE COUNTER FOR POINTS 

1160 FOR X=0 TO 180 STEP 3 ' LOOP FOR POINTS 
1170 R=X*DR 
1180 Y=0 

1190 FOR N=l TO 2*(J-1)+1 STEP 2 ' COMPUTE Y 
12 00 Y=Y+SIN(N*R)/N 
12 10 NEXT N 
1220 Y=Y*4/PI 
12 30 1=1+1 
1240 X( I, J) = X 

: Y(I,J)=Y 
1250 NEXT X 
1260 NP(J)=I 
1270 NEXT J 
1280 GOSUB 5 9 2t 
1290 END 



' INCREMENT POINT COUNTER 
STORE X AND Y 
' SAVE NUMBER OF POINTS ON CURVE J 
' CALL MULTI-GRAPH 



j<r$Sm 




8888 AND Y=8888 GOTO 58090 

=9999 AND Y=9999 GOTO 58180 
1 

J)=I ' INCREMENT # OF POINTS ON CURVE J 
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Hex Arithmetic 
Scratchpad 

Jerry Dulin 

160 Jackson Street 

P.O. Box 324 

Coldwater, Ml 49036-0324 

CIS ID: 71625, 1210 

This program is more than a hex/decimal interconver- 
sion program. It does hexadecimal arithmetic, will operate 
accurately even with very large hexadecimal numbers, and 
will not accept most forms of input errors. 

I hope that someone may benefit from these programs! I 
own a Model I, Level II TRS-80 with Modem I, Line Printer 
VII, and RS232-C but, not disk capacity. 

10 'THIS PROGRAM WRITTEN SEPTEMBER, 1981, BY JERRY 

DULIN 
20 'AND RUNS IN 8K, FOR MODEL 1, LEVEL 2 TRS-80 
30 'THIS PROGRAM WILL BOTH PERFORM HEXADECIMAL 

ARITHMETIC 
40 'AND PERFORM HEX/DECIMAL INTERCONVERSIONS 
50 'AND WILL NOT ACCEPT ERROR INPUT. 
60 ' 
70 CLS 

80 CLEAR 500 : 'LOTS OF STRING SPACE FOR HEX NUMBERS 
90 LN$=STRING$(64, ".") : 'FOR GRAPHICS 
100 DEFDBL H, L, M, T, U 

110 PRINT @ 79, "THE HEX ARITHMETIC SCRATCHPAD" 
120 PRINT 
130 PRINT "THIS PROGRAM WILL LET YOU INPUT 

HEXADECIMAL NUMBERS" 
140 PRINT "AND ARITHMETIC OPERATORS DIRECTLY, AND 

WILL OUTPUT" 
150 PRINT "THE ANSWER IN HEX AND ADDITIONALLY DISPLAY 

THE ENTIRE" 
160 PRINT "EQUATION CONVERTED TO DECIMAL FORMAT." 
170 PRINT 
180 PRINT "THE PROGRAM WILL NOT ACCEPT ANY INPUT 

INVOLVING A" 
190 PRINT "DECIMAL POINT. INVALID OPERATORS OR HEX 

INPUTS WILL" 
200 PRINT "SIMPLY RESULT IN THE SCREEN ERASING ITSELF 

AND ASKING" 
210 PRINT "FOR A NEW INPUT." 

■ PRINT 
220 PRINT "THE PROGRAM WILL ALSO DO DIRECT HEX TO 

DECIMAL OR" 
230 PRINT "DECIMAL TO HEX CONVERSIONS." 
240 INPUT " HIT ENTER TO BEGIN: " ; E$ 
250 GOTO 2090 
260 STOP 

270 C=l : 'START PEELING D$ FROM LEFTMOST CHARACTER 
280 U=0 : 'U WILL BECOME THE DECIMAL BEING CONVERTED 
290 K3=0 

Y$="" 
J$»"" 

B4=0 : 'INITIALIZE 
300 X$="" : 'X$ WILL HOLD FINAL ANSWER 
310 FOR K=l TO LEN(D$) 
320 B$=MID$(D$, C, 1) 

330 IF B$="" THEN 2180 : 'NO CHARACTER, AN ERROR 
340 IF ASC(B$)<=47 THEN 2180 : "LESS THAN 0, AN ERROR 
350 IF ASC(B$)>=58 THEN 2180 : 'GREATER THAN 9, AN 

ERROR 
360 C=C+1 : 'PEEL NEXT CHARACTER OFF D$ 
370 NEXT K 

380 U=VAL(D$) : 'OK TO USE D$ INPUT 
390 IF U<=15 THEN 490 : 'WILL ONLY NEED ONE 
CHARACTER 



'GET A DECIMAL CHARACTER FROM 



400 K3=INT(U/16) 
410 B4=U-(K3*16) 
420 IF B4>=10 THEN 470 
430 J$=CHR$(B4+48) : 
TO 9 
Y$=Y$+J$ : 'BUILD A MIRROR REVERSE OF HEX ANSWER 
U=K3 : 'DO NEXT CHUNK OF DECIMAL INPUT 
GOTO 390 
J$=CHR$(B4+55) : ' GET A HEX CHARACTER FROM A TO 

F 
GOTO 440 

IF U>=10 THEN 530 
J$=CHR$(U+48) : ' GET A DECIMAL CHARACTER FROM 

TO 1 
Y$=Y$+J$ : 'BUILD UP A REVERSE OF THE FINAL HEX 

ANSWER 
GOTO 550 

ANSWER 
J$=CHR$(U+55) 
Y$=Y$+J$ 
FOR K=LEN(Y$) TO 1 STEP 

FOR RIGHT 
F$=MID$(Y$, K. 
X$=X$+F$ 

ANSWER 
NEXT K 

•X$ NOW HOLDS THE HEXADECIMAL EQUIVALENT OF U 
'U NOW HOLDS WHAT REMAINS OF THE ORIGINAL DECIMAL 
INPUT 
'D$ HOLDS THE ORIGINAL DECIMAL INPUT 



440 
450 
460 
470 

480 
490 
500 

510 

520 

530 

540 
550 

560 
570 

580 
590 
600 

610 
620 
630 



•Y$ IS NOW READY TO REVERSE FOR FINAL 
'GET A HEX CHARACTER FROM A TO F 



-1 



'REVERSE Y$ LEFT 



1) 



'X$ HOLDS Y$ REVERSED AND IS FINAL 



RETURN 

P$="" 

N=0 
P=0 
T=0 
R=0 



640 
650 
660 
670 

680 
690 

700 
710 

720 
730 

740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 



M=l 



) : 'INITIALIZE 

BEGIN PEELING H$ AT THE LEFTMOST CHARACTER 
P=LEN(H$)-1 : '16 TO THE POWER OF P 
FOR K=l TO LEN(H$) 

' PEEL THE HEX STRING BY 



M, 1) 



P$=MID$(H$ 

CHARACTER 
IF P$="" THEN 2180 
IF ASC(P$)<=47 THEN 218 

ERROR 
IF ASC(P$)<=57 THEN 760 
IF ASC(P$)<=64 THEN 218 

ERROR 
IF ASC(P$)<=70 THEN 740 
IF ASC(P$)>=71 THEN 218 

ERROR 
N=ASC(P$)-55 
GOTO 770 
N=ASC(P$)-48 
GOSUB 850 : 
P=P~1 
T=T+R 



NO CHARACTER, AN ERROR 
: 'LESS THAN 0, AN 



'9 OR LESS 
'LESS THAN A, 

'F OR LESS 
'GREATER THAN 



AN 



AN 



'HEX CHARACTER FROM A TO F 

'HEX CHARACTER FROM TO 9 
FIND THE HEX POWER 
'NEXT LOWER POWER OF 16 
'TOTAL UP THE FINAL HEX NUMBER 

M=M+1 : 'INCREMENT THE PEELING OF H$ 

NEXT K 

'H$ NOW HOLDS THE ORIGINAL HEX INPUT 

■T NOW HOLDS THE CONVERTED DECIMAL 

RETURN 

IF P=j 



IF 

IF 
IF 



P=l 
P=2 
P=3 



THEN 
THEN 



1000 



THEN 1020 
THEN 1040 



IF P=4 THEN 1| 



IF P=5 
IF P=6 
IF P=7 
IF P=8 



THEN 1080 
THEN 1100 
THEN 1120 



THEN 1140 
IF P=9 THEN 1160 
IF P=10 THEN 1180 

R=N*(16~P) : 'FIND A HEX POWER GREATER THAN 10 
RETURN 
R=N 
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1ST POWER 



'2ND POWER 



3RD POWER 



'4TH POWER 



'5TH POWER 



'6TH POWER 



7TH POWER 



'8TH POWER 



'9TH POWER 



10TH POWER 



(HEX)U SPACE) ( + , ~, X OR 
A0FF / 2 



990 GOTO 1190 

1000 R=N*16 : 

1010 GOTO 1190 

1020 R=N*256 : 

1030 GOTO 1190 

1040 R=N*4096 

1050 GOTO 1190 

1060 R=N*65536 

1070 GOTO 1190 

1080 R=N*1048576 : 

1090 GOTO 1190 

1100 R=N*16777216 : 

1110 GOTO 1190 

1120 R=N*268435456 : 

1130 GOTO 1190 

1140 R=N*42949 67 29 6 

1150 GOTO 1190 

1160 R=N*68719476736 

1170 GOTO 1190 

1180 R=N*1099511627776 : 

1190 RETURN 

1200 CLS 

1210 N$="" 

Z1=0 

H$="" 

EQ$="" 
12 20 PRINT @ 64, "FORMAT: 

*, /)(1 SPACE) (HEX) 
1230 PRINT "FOR EXAMPLE: 
1240 PRINT LN$ 
1250 U=0 

X$="" 

K3=0 

YS="" 

J$="" 

B4=0 
1260 H=0 

: L=0 
: M=0 
1270 PRINT @ 320, "" 
1280 INPUT "THE HEX EQUATION IS: 

WILL HOLD THE EQUATION 
1290 IF EQ$="" THEN 1200 

1300 FOR K=l TO LEN(EQ$) : 'FIND FIRST HEX OPERAND 
1310 N$=MID$(EQ$,K,1) 

1320 Zl=Zl+l : "SAVE POSITION IN EQ$ 
1330 IF ASC(N$)=32 THEN 1360 
1340 H$=H$+N$ : 'BUILD THE HEX INPUT STRING 
1350 NEXT K 

1360 GOSUB 630: 'GET A DECIMAL 
1370 H=T : 'FIRST CONVERSION 

1380 Z1=Z1+1 : 'POSITION EQ$ TO FIND OPERATOR 
1390 H$="" : 'RESET FOR HEX CONVERSION 
1400 0$=MID$(£Q$,Z1,1) : 'GET ARITHMETIC OPERATOR 
1410 IF 0$="" THEN 1200 

1420 Zl=Zl+2 : 'ADVANCE TO SECOND HEX OPERAND 
1430 FOR K=Z1 TO LEN(EQ$) : 'GET SECOND HEX OPERAND 
1440 NS=MID$(EQ$,K,1) 
1450 IF N$=CHR$(32) THEN 1480 

1460 H$=H$+N$ : 'BUILD SECOND HEX INPUT STRING 
1470 NEXT K 

1480 GOSUB 630: 'GET A DECIMAL 
1490 L=T : 'SECOND CONVERSION 



EQ$ 



THIS 



1500 


IF 0$="+" THEN 1560 


1510 


IF 0$="-" THEN 1620 


1520 


IF 0$="*" THEN 1750 


1530 


IF 0$="X" THEN 1750 


1540 


IF 0$="/" THEN 1810 


1550 


GOTO 1200 


1560 


M=H+L 


1570 


U=M 


1580 


GOSUB 390 


1590 


PRINT @ 512, "THE H 


1600 


PRINT @ 640, H; 0$; 


1610 


GOTO 1890 


1620 


M=H-L 


1630 


IF M<0 THEN 1690 



x$ 



1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 

1870 

1880 
1890 

1900 



1910 
1920 
1930 
1940 
1950 
1960 
1970 



1980 
1990 
2000 
2010 

2020 
2030 
2040 
2050 

2060 
2070 
2080 
2090 

2100 
2110 
2120 
2130 
2140 



2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 

2240 
2250 
2260 



U=M 

GOSUB 390 

PRINT (§ 512, 

PRINT (§ 640, H; 0$; L; 

GOSUB 1890 

M=ABS(M) 

U=M 

GOSUB 390 

PRINT @ 512 ; 

PRINT @ 640. 

GOTO 1890 

M=H*L 

U=M 

GOSUB 390 

PRINT @ 512 : 



"THE HEX ANSWER IS: 
; M 



"THE HEX ANSWER IS: 
H; 0$; L; "=" ; M 



X$ 



NEGATIVE 



X$ 



"THE HEX ANSWER IS: 
H; 0$; L; "=" ; M 



X$ 



PRINT @ 640, 

GOTO 1890 

M=H/L 

M=M+ . 5 

M=INT(M) 

U=M : 'GET ROUNDED ANSWER 

GOSUB 390 

PRINT (3 512, "THE HEX ANSWER IS 

"(TO NEAREST INTEGER)" 

PRINT (3 640, H; 0$; L; "=" ; M; 

INTEGER)" 

GOTO 1890 

PRINT @ 832, " 

TO CONTINUE, OR' 

E$="" 

: INPUT " 

THE MENU: 



: "; X$; 
'(TO NEAREST 

SIMPLY HIT ENTER IF YOU WISH 



TYPE THE LETTER 
E$ 



'M' IF YOU WISH 



"HEX TO DECIMAL: HEX= "; 

"DECIMAL VALUE="; T 
"DECIMAL TO HEX: DECIMAL= 



IF E$="M" THEN 2090 
GOSUB 2180 
CLS 

PRINT @ 64, "ENTER H TO CONVERT HEX TO DECIMAL" 
PRINT @ 192, "ENTER D TO CONVERT DECIMAL TO HEX' 
PRINT LN$ 
E$="" 

: PRINT @ 448, "NEXT: "; 
: INPUT E$ 
IF E$="H" THEN 2010 
IF E$="D" THEN 2050 
GOTO 1930 
PRINT @ 448, 
: INPUT H$ 
GOSUB 630 
PRINT @ 576, 
GOTO 1890 
PRINT @ 448, 
: INPUT D$ 
GOSUB 270 
PRINT <§ 57 6, 
GOTO 1890 
IND=0 
: CLS 

PRINT @ 89, 
PRINT @ 192, 
PRINT @ 256, 
PRINT @ 320, 
E$="" 

: PRINT @ 448 
: INPUT E$ 

IF E$="A" THEN IND=1 
IF E$="B" THEN IND=2 
IF E$="C" THEN IND=3 
ON IND GOSUB 1200, 2270, 2200 
GOTO 2090 
CLS 
PRINT @ 64, "HEX TO DECIMAL CONVERSIONS:" 

LN$; 

"YOUR HEX NUMBER IS: "; 



'HEX VALUE = 



X$ 



MENU:" 

"A: HEX ARITHMETIC" 

"B: DECIMAL TO HEX CONVERSION" 

"C: HEX TO DECIMAL CONVERSION" 

"YOUR CHOICE IS: ": 



PRINT @ 128, 
PRINT @ 320, 
: INPUT H$ 
GOSUB 630 
PRINT @ 448, 
GOTO 1890 



"THE DECIMAL ANSWER IS: 1 
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2270 CLS 

2280 PRINT (§ 64, "DECIMAL TO HEX CONVERSIONS:" 

2290 PRINT @ 128, LN$ ; 

2300 PRINT @ 320, "YOOR DECIMAL NUMBER IS: "; 

: INPUT D$ 
2310 GOSUB 270 
2320 PRINT @ 448, 
2330 GOTO 1890 



'THE HEX ANSWER IS: 



X$ 




Mark Sills 
5396 Elvis Drive 
San Jose, CA 95123 



Once the user has set the system clock and invoked 
SETCOM, this BASIC program enables the user to select 
from a menu of frequently called services. The modem is 
programmed and the user is able to further choose to either 
call at that moment, or at a later time. When the system time 
equals the desired calling time, the modem will be instructed 
to dial. If a Carrier Detect is read, the BASIC program drops 
into the user's communication program. 



'* F/S=SMTMODEM/BAS AUTODIAL PROGRAM FOR MODEM II * 

■* VERSION 5.0 LAST REVISION FEBRUARY 19, 1983 * 

'* REFER TO TRS-80 NEWSLETTER DECEMBER 1982 * 

'* MODIFIED BY MARK L. SILLS * 

'* INITIALIZE * 

8 CLS 

: CLEAR 100 

9 DIM I!, IK$, SN%, EC%, L!, PGS, TR! , A!, DT$, PN$, 

ED$, H$, T$, rs$ 

10 '* CREATE SPECIAL CHARACTER MODEL III * 

11 POKE 16420, 1 

12 H$ = CHR$ (244) + CHR$ (245) + CHR$ (246) +CHR$ 

(32) 

13 '* GET TELEPHONE NUMBER DATA * 

14 PRINT @10, "AUTODIAL SYSTEM SYSTEM TIME 

: PRINT H$ 

15 '* INSERT DESIRED CALLING NAMES IN PRINT 

STATEMENTS * 

16 PRINT @133, "!)' 

17 PRINT @153, "2)' 

18 PRINT @197, "3)' 

19 PRINT (§217 , "4)' 

20 PRINT (§261, "5)' 

21 PRINT (§281, "6)' 

22 PRINT (§325, "7)' 

23 PRINT @345, "8)" MANUAL DIAL 

24 PRINT 

: PRINT 

25 PRINT "Please Make Your Choice : "; 
GOSUB 72 
A = VAL (IK$) 
PRINT A 

26 ON A GOTO 65, 66, 67, 68, 69, 70, 71, 27 

27 LINE INPUT "Enter Telephone Number: ";PN$ 

28 PG$ = "D" + "T" +PN$ 

29 '* ENTER PROGRAM MODE OF MODEM II BY SENDING AN 

"*" * 

30 TR = 

31 SN% = CINT (ASC("*")) 

32 OUT $HEB, SN% 

33 FOR I = 1 TO 50 

: NEXT I 



34 EC% = INP (&HEB) 

35 TR = TR + 1 

36 IF EC% < > SN% AND TR < 3 THEN 31 

37 IF TR = 3 THEN CLS 

: PRINT "Can Not Program The Modem ! !" 
: STOP 

38 '* SEND THE PHONE NUMBER DATA STRING TO THE MODEM 

II * 

39 FOR L = 1 TO LEN (PG$) 

40 SN% = CINT (ASC(MID$(PG$, L, 1))) 

41 OUT &HEB, SN% 

42 FOR I = 1 TO 50 

: NEXT I 

43 EC% = INP (&HEB) 

44 IF SN% < > EC% THEN PRINT "Can Not Program The 

Modem ! !" 
: STOP 

45 NEXT L 

46 '* GET THE TIME FOR THE NUMBER TO BE DIALED * 

47 '* SEND "X" TO MODEM AT CORRECT TIME * 

48 LINE INPUT "Modem Programmed, Enter the Time to 

dial (HH:MM) ";DT$ 

: IF LEN (DT$) = THEN 50 

49 TS$ = LEFT$ (RIGHT$(TIME$ , 8), 5) 

: IF DT$ < > TS$ THEN 49 

50 SN% = CINT (ASCC'X")) 

51 OUT &HEB, SN% 

52 FOR I = 1 TO 50 

: NEXT I 

53 ED% = INP (&HEB) 

54 '* TIMING LOOP FOR MODEM II PROTOCOL * 

55 FOR I = 1 TO 3000 

: NEXT I 

56 '* TEST FOR CARRIER DETECT * 

57 FOR I = 1 TO 2500 

: IF (INP(&H0E8) AND &H20) = THEN 59 
: ELSE NEXT I 

58 GOTO 8 

59 CLS 
PRINT "Connection Made !" 
FOR I = 1 TO 300 
NEXT I 

60 '* IF DESIRED DELETE REM IN LINE 62 FOR BUZZER 

ALERT * 

61 '* RING BUZZER IN PRINTER AND LOAD COMMUNICATION 

PROGRAM * 

62 ' FOR I = 1 TO 50 
LPRINT CHR$(7) 
NEXT I 

CMD"S=MODEM" 
REM CHANGE THIS FOR YOUR COMM PROGRAM 

63 CMD "S=MODEM" 

: REM CHANGE THIS FOR YOUR COMM PROGRAM 

64 '* INSERT DESIRED PHONE NUMBERS BETWEEN QUOTES * 

65 PN$ = "" 

: GOTO 28 

66 PN$ = "" 

: GOTO 28 

67 PN$ = "" 

: GOTO 28 

68 PN$ = "" 

: GOTO 28 

69 PN$ = "" 

: GOTO 28 

70 PN$ = "" 

: GOTO 28 

71 PN$ = "" 

: GOTO 28 

72 IK$ = INKEY$ 

: IF IK$ = "" THEN 72 
: ELSE RETURN 

73 END J3 
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Various Programs 



Terry Myerson 
1 La Costa Court 
Ormond Beach, FL 32074 



I have written several programs for the Model III com- 
puter. The first two programs, Multiplication and Math are 
written to help the user with his/her math. The second pro- 
gram, Grader, helps to average several grades together. And 
the third program, Age, is just a fun program. It calculates 
how many days and minutes old someone is, simply by 
entering your birthdate information. 

MULTIPLICATION 



CLS 



T=0 
C=0 



10 CLS 

20 INPUT "HOW MANY PROBLEMS"; Q 

30 FOR 0=1 TO Q 

32 T=0 

40 CLS 

50 A=RND(10)-1 

: B=RND(10)-1 
60 PRINT TAB(23); A 

65 C=C+1 

66 T=T+1 

70 PRINT TAB(21); "X "; B 

80 PRINT TAB(20); " " 

90 INPUT " "; W 

100 IF W=(A*B) THEN 500 

110 T=RND(5) 

120 IF T-l THEN PRINT "WRONG" 

130 IF T=2 THEN PRINT "INCORRECT" 

140 IF T=3 THEN PRINT "YOU NEED TO STUDY" 

150 IF T=4 THEN PRINT "STUDY YOUR FACTS" 

160 IF T=5 THEN PRINT "SORRY , NOT RIGHT" 

170 FOR X=l TO 750 

: NEXT X 
180 IF T=4 THEN 700 
190 CLS 

: GOTO 60 
500 R=RND(5) 

510 IF R=l THEN PRINT "GREAT" 
520 IF R=2 THEN PRINT "SUPER" 
530 IF R=3 THEN PRINT "TERRIFIC" 
540 IF R=4 THEN PRINT "CORRECT" 
550 IF R=5 THEN PRINT "RIGHT" 

560 FOR X=l TO 750 

561 NEXT X 

570 IF 0=Q THEN 900 

580 CLS 

585 T=0 

590 NEXT 

700 PRINT "THE ANSWER IS "; (A*B) 

710 FOR X=l TO 750 

: NEXT X 
720 NEXT 

900 INPUT "WANT TO TRY AGAIN 
915 PRINT 

920 PRINT "IT TOOK YOU "; C; 

MUTI. PROBLEMS" 
: PRINT 

921 PRINT "YOU GOT "; C-Q; " WRONG" 

925 FOR X=l TO 750 

: NEXT X 

926 IF LEFT$(P$, 1)="Y" THEN RUN 
930 END 



P$ 



GUESSES TO DO 



MATH 



30 INPUT "HOW MANY PROBLEMS"; Q 

40 IF Q$="+" THEN 1000 

50 FOR 0=1 TO Q 

60 CLS 

70 A=RND(11)-1 

: B=RND(11)-1 
80 IF A>B THEN PRINT TAB(23); A ELSE PRINT TAB(23); B 



90 IF A<B THEN PRINT TAB(21); "- 
TAB(21); "- "; B 



A ELSE PRINT 



100 PRINT TAB(20); "-- 


tl 


110 INPUT " 


"; W 


120 IF A=B THEN IF W= 


U-B) OR W=(B-A) THEN 500 


130 IF A>B THEN IF W= 


(A-B) THEN 500 


140 IF A<B THEN IF W= 


[B-A) THEN 500 


150 T=RND(5) 




160 IF T=l THEN PRINT 


"WRONG" 


170 IF T=2 THEN PRINT 


"INCORRECT" 


180 IF T=3 THEN PRINT 


"YOU MADE A MISTAKE" 


190 IF T=4 THEN PRINT 


"THAT IS NOT RIGHT" 


200 IF T=5 THEN PRINT 


"YOU NEED TO STUDY YOUR FACTS" 


210 FOR X=l TO 750 




: NEXT X 




220 CLS 




230 GOTO 80 




500 Y=RND(5) 




510 IF Y=l THEN PRINT 


"GREAT" 


520 IF Y=2 THEN PRINT 


"SUPER" 


530 IF Y=3 THEN PRINT 


"TERRIFIC" 


540 IF Y=4 THEN PRINT 


"VERY GOOD" 


550 IF Y=5 THEN PRINT 


"CORRECT" 


560 FOR X=l TO 750 




: NEXT X 




570 IF 0=Q THEN 5000 




580 CLS 




590 NEXT 




1000 CLS 





: FOR 0=1 TO Q 
1010 A=RND(11)-1 

: B=RND(11)-1 
1020 PRINT TAB(23); A 
1030 PRINT TAB(21); "+ "; B 

1040 PRINT TAB(19); " " 

1050 INPUT " "; W 

1060 IF W=(A+B) THEN 1500 

1070 T=RND(5) 

1080 IF T=l THEN PRINT "INCORRECT" 

1090 IF T=2 THEN PRINT "SORRY, THAT'S WRONG" 

1100 IF T=3 THEN PRINT "YOU NEED TO STUDY YOUR FACTS* 

1110 IF T=4 THEN PRINT "YOU NEED PRACTICE" 
1120 IF T=5 THEN PRINT "THAT'S WRONG" 
1130 FOR X=l TO 750 

: NEXT X 
1140 CLS 
1150 GOTO 1020 
1500 T=RND(5) 

1510 IF T=l THEN PRINT "GREAT" 
1520 IF T=2 THEN PRINT "TERRIFIC" 
1530 IF T=3 THEN PRINT "SUPER" 
1540 IF T=4 THEN PRINT "GOOD WORK" 
1550 IF T=5 THEN PRINT "VERY GOOD" 
1560 FOR X=l TO 750 

: NEXT X 
1570 IF 0=Q THEN 5000 
1580 NEXT 

5000 INPUT "DO YOU WANT TO TRY AGAIN"; R$ 
5010 IF LEFT$(R$, 1)="Y" THEN RUN 
5020 END 



GRADER 



10 CLS 

20 INPUT "ADDITION OR SUBTRACTION (+ OR 



)"; Q$ 



10 CLS 

20 INPUT "HOW MANY GRADES ARE YOU AVERAGING "; G 

30 IF G<0 THEN GOTO 20 

40 FOR X=l TO G 

50 PRINT "INPUT THE "; X; " GRADE "; 



TRS-80 Microcomputer News, September 1983 



39 



60 INPUT A(X) 
70 C=C+A(X) 
80 NEXT X 



AGE 



CLS 

10 INPUT "HOW MANY YEARS OLD ARE YOU "; AG 

20 INPUT "WHAT MONTH IS IT: (USE THE NUMBER OF THE 

MONTH) "; MO 
30 DY=AG*365 
40 FOR X=l TO MO-1 
50 READ A 
60 DY=DY+A 
65 PL=PL+A 
70 NEXT X 

80 INPUT "WHAT DAY IS IT OF THAT MONTH "; FG 
90 DY=DY+FG 

100 INPUT "WHAT HOUR OF THE DAY IS IT "; HD 
110 INPUT "IS IT AM OR PM "; AP$ 
120 IF AP$="PM" THEN HD=HD+12 ELSE HD=HD+0 
130 MN=HD*60 

135 INPUT "HOW MANY MINUTES PAST THE HOUR "; MH 
140 MN=MN+MH-60 
150 CLS 

: PRINT "YOU ARE "DY" DAYS OLD"; "" 
160 ML=MN*60*60*24*365*AG+PL+FG 

170 PRINT "YOU ARE "; 

171 PRINT US I NG"###, ###,### ,###,###, 

172 PRINT " MINUTES OLD" 
900 DATA 31, 28, 31, 30, 30, 30, 31, 

31 



"; ML; 

31, 30, 31, 30, 



Schedule 

Hubbard C. Goodrich 

RFD#1, Box 880 

South Harpswell, ME 04079 

Schedule, is a Model III program that will print a sched- 
ule to meet daily, weekly, monthly, or semester needs. First, it 
will ask you for the number of columns and rows you plan to 
use. Then, it will ask for the column headings, row headings, 
and asks whether you wish to fill in each cell of the schedule. If 
you do, it will loop a routine to fill each (non-heading) cell. 
Next, you will be asked if you wish a hard copy or not; finally 
whether you wish another copy. 

The limitation of the program is the size of each cell 
(which is set for 15 spaces). Changing the cell size (CS) to 
another value will expand or contract each cell to allow for 
more cells or more data in each cell. 

10 REM # SCEDPRNT/BAS # TO PRINT SCHEDULE 
20 CLEAR 1000 

CLS 

DEFINTA-Z 

L$=" "+CHR$(124)+" " 

CS=15 

INPUT "HOW MANY COLUMNS"; NC 

INPUT "HOW MANY ROWS..."; NR 

DIMC$(NC, NR) 

NC=NC-1 

INPUT "DO YOU WISH TO WRITE IN THE CELLS 
(Y/N)"; Ql$ 

FOR 1=0 TO NC 

PRINT "ENTER HEADINGS FOR COLUMN #" ; 1+1 ; 

INPUT C$(I, 0) 

NEXT I 
30 FOR J=l TO NR 

PRINT "ENTER HEADINGS FOR ROW #" ; J; 

INPUT C$(0, J) 

NEXT J 



IF LEFT$(Q1$, 1)="Y" THEN FOR 1=1 TO NR 

FOR J=l TO NC 

PRINT "ENTER DATA FOR ROW "; I; " COLUMN "; J; 

INPUT "DATA ... "; C$(J, I) 

NEXT J 

NEXT I 
40 INPUT "DO YOU WANT HARD COPY (Y/N)"; Q2$ 

: IF LEFT$(Q2$, 1)="Y" THEN GOSUB 60 ELSE GOSUB 
90 
50 INPUT "DO YOU WANT ANOTHER (Y/N)"; Q3$ 

1 IF LEFT$(Q3$, 1)="Y" THEN GOTO 40 ELSE END 
60 FOR J=0 TO NR 

T=10 

FOR 1=0 TO NC 

LPRINT C$(I, J); TAB(T); L$; 

T=T+CS 

NEXT I 
70 LPRINT 

: IF J=0 THEN ST$=CHR$(61) ELSE ST$=CHR$(45) 
80 LPRINT STRING$(T-CS+1, ST$) 

NEXT J 

LPRINT STRING$(T-CS+1, 61) 

RETURN 



90 CLS 



FOR J=0 TO NR 

T=10 

FOR 1=0 TO NC 

PRINT C$(I, J); TAB(T); L$; 

T=T+CS 

NEXT I 

PRINT 

NEXT J 

RETURN 



<^H 



Grading Program 



Samuel M. Seltzer 
2 Tudor Lane, #2 
Lockport, NY 14094 



I have just written this Model III program which I believe 
will be of interest and use to your educator-readers. The 
program assists the classroom teacher in the calculation of 
grades throughout the academic year. 

The program makes it possible for the classroom teacher 
to enter daily and weekly quiz, essay, test, and project grades 
on a quarterly basis for each student. Should a specific grade 
merit greater weight, it is merely entered as many times as it is 
to be weighted. When (ent er) is pressed in lieu of a grade 
entry, the program immediately calculates an integral value 
for the quarterly grade, stores it in memory, and displays it on 
the screen. 

Subsequent quarter grades are entered in the same 
manner. Then the final examination grade is entered, and the 
term score is calculated to the nearest tenth, stored and 
displayed. 

Hard copy output is then provided, listing: 

1) Name of School 

2) Name of Course 

3) Name of Teacher 

4) Date 

5) Name of each student, together with: 

a) grades for each quarter 

b) final examination grade 

c) final grade for course 

It can easily be adapted to maintaining disk files for all 
scores. 
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10 CLS 

20 ' ******************************** 

30 ** SUPERGRADE GRADING PROGRAM * 

40 '* * 

50 '* SAM SELTZER * FOR TRS-80, MODEL III 

60 '* LOCKPORT, NEW YORK 14094 * 

70 '* MAY, 1983 * 

80 ' ******************************** 

90 ' 

99 CLEAR 10000 

100 DIMS$(100), Ql(100), Q2(100), Q3(100), Q4(100), 

Q5(100), F$(20) 
110 FOR X=l TO 5 

: PRINT 

: NEXT 
120 PRINT TAB( 16)"********************************" 
130 PRINT TAB(16)"* SUPERGRADE GRADING PROGRAM *" 
140 PRINT TAB(16)"* *" 

150 PRINT TAB(16)"* SAM SELTZER *" 
160 PRINT TAB(16)"* LOCKPORT, NEW YORK 14094 *" 
170 PRINT TAB( 16)"********************************" 
180 GOSUB 1400 
190 CLS 
1000 ' 

1010 '**************** 
1020 '* DATA INPUT * 
1030 '**************** 
1040 ' 
1050 LINE INPUT "COURSE TITLE: "; C$ 

: PRINT 
1060 INPUT "HOW MANY STUDENTS"; N 

: PRINT 
1070 LINE INPUT "TEACHER'S NAME: "; T$ 

: PRINT 
1080 LINE INPUT "DATE: "; D$ 

: PRINT 
1090 FOR J=l TO N 
1100 CLS 

: PRINT "ENTER STUDENT #" ; J; 

: LINE INPUT "NAME: "; S$(j) 
1110 PRINT 

: GOSUB 2000 
1120 IF F=0 THEN CLS 

: GOTO 1110 
1130 Q1(J)=INT(FT/F) 
1140 PRINT 

: PRINT "FIRST QUARTER MARK = "; Ql(j) 
1150 GOSUB 1400 

: CLS 
1160 GOSUB 2000 
1170 IF F=0 THEN CLS 

: GOTO 1160 
1180 Q2(J)=INT(FT/F) 
1190 PRINT 

: PRINT "SECOND QUARTER MARK = "; Q2(j) 
1200 GOSUB 1400 

: CLS 
1210 GOSUB 2000 
1220 IF F=0 THEN CLS 

: GOTO 1210 
1230 Q3(J)=INT(FT/F) 
1240 PRINT 

: PRINT "THIRD QUARTER MARK = "; Q3(J) 
1250 GOSUB 1400 

: CLS 
1260 GOSUB 2000 
1270 IF F=0 THEN CLS 

: GOTO 1260 
1280 Q4(J)=INT(FT/F) 
1290 PRINT 

: PRINT "FOURTH QUARTER MARK = "; Q4(j) 
1300 GOSUB 1400 

: CLS 
1310 PRINT 

: LINE INPUT "ENTER FINAL EXAM MARK: "; FE$ 
1320 Q5(J)=VAL(FE$) 



1330 PRINT 

: PRINT 

: PRINT 
1340 PRINT S$(J); '" S FINAL GRADE IS: "; 

(Ql(j)+Q2(j)+Q3(J)+Q4(J)+Q5(J))/5 
1350 GOSUB 1400 
1360 NEXT 
1370 GOSUB 1400 
1380 GOSUB 3000 
1390 END 
1400 A$=INKEY$ 

: IF A$="" THEN 1400 ELSE RETURN 
2000 • 

2010 ' ******************************* 
2020 '* ENTERING QUARTERLY GRADES * 

2030 ' ft&ft&&&&&&&&&^^&^i c i c 'k~' c "& :: k~< < 'k~kkkki? kit 

2040 ' 
2050 F=0 

: FT=0 

: FOR K=l TO 20 
2060 PRINT "ENTER QUARTERLY GRADE # "; K; 

: LINE INPUT": "; F$(K) 
2070 IF LEN(F$(K))=0 THEN 2100 
2080 F=F+1 

: FT=FT+VAL(F$(K)) 
2090 NEXT 
2100 RETURN 
3000 ' 

3010 ' ********************** 
3020 '* PRINTING ROUTINE * 
3030 ' ********************** 
3040 ' 
3050 CLS 

: PRINT "HOW MANY COPIES"; 

: INPUT C 
3060 PRINT @400, "RESULTS ARE NOW BEING PRINTED" 
3070 FOR Z=l TO C 

3080 LPRINT CHRS(14)TAB(9)"BARKER CENTRAL SCHOOL" 
3090 LPRINT 

: LPRINT CHR$(14)CHR$(15)TAB(20)"GRADE LIST FOR 

"; c$ 

3100 LPRINT 

: LPRINT CHR$(18)TAB(33)T$ 
3110 LPRINT 

: LPRINT TAB(35)D$ 
3120 FOR R=l TO 3 

: LPRINT 

: NEXT R 
3130 FOR J=l TO N 
3140 LPRINT "STUDENT'S NAME: "; S$(j) 

: LPRINT 
3150 LPRINT "FIRST QUARTER MARK : "; 

: LPRINT USING "###"; Ql(j) 
3160 LPRINT "SECOND QUARTER MARK : "; 

: LPRINT USING "###"; Q2(j) 
3170 LPRINT "THIRD QUARTER MARK : "; 

: LPRINT USING "###"; Q3(j) 
3180 LPRINT "FOURTH QUARTER MARK : "; 

: LPRINT USING "###"; Q4(J) 
3190 LPRINT "FINAL EXAM MARK : "; 

: LPRINT USING "###"; Q5(j) 
3200 LPRINT 
3210 LPRINT SS(j)'"S FINAL COURSE GRADE IS :"; 

(Ql(j)+Q2(j)+Q3(j)+Q4(j)+Q5(j))/5 

: LPRINT 

: LPRINT 
3220 NEXT 
3230 PRINT @860, Z; "COPIES PRINTED; "; C-Z ; "COPIES 

TO GO" 
3240 NEXT Z 
3250 RETURN J3 
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Color Computer 



Big Math 



David W. Morrow 
R.R. #12, Box 497 
Bedford, IN 47421 



Here is a Color Computer math program written for 
children. 

1 '***BIG MATH*** 

2 ' 

3 * BY DAVID MORROW 
5 CLS 

10 PRINT @ 128, STRING$(32, "*") 

: PRINT @ 288, STRING$(32, "*") 
15 PRINT @ 203, "BIG MATH" 
20 FOR X=l TO 600 

: NEXT X 



: CLS 
25 PRINT @ 65, 
30 PRINT @ 97, 
35 PRINT @ 129 ; 
PRINT @ 161. 



40 



(1) ADDITION" 

(2) SUBTRACTION" 
"(3) MULTIPLICATION" 
"(4) DIVISION" 

45 INPUT "WHICH EXERCISE (1-4)" ;R 

49 IF R<1 OR R>4 THEN 20 

50 IF R=4 THEN 61 

55 PRINT @ 288, "FOR SINGLE DIGIT PROBLEMS ENTER A 
(1)" 

60 INPUT OD 

61 CLS 

62 PRINT @ 64, "YOU WILL BE GIVEN THREE CHANCES TO 

GIVE THE CORRECT ANSWER. AT WHICH TIME THE 
COMPUTER WILL TELL YOU THE ANSWER. 

63 PRINT @ 224, "PRESS ENTER" 

64 INPUT D 

65 CLS(0) 
70 EC=0 

B=0 
F=0 
J=0 
L=0 

95 AS=RND(10) 
100 IF AS-10 THEN AS=0 
105 AO=RND(10) 
110 IF AO=10 THEN AO=0 
115 B2=RND(10) 
120 IF B2=10 THEN B2=0 
125 BO=RND(10) 

130 IF BO=10 OR OD=»l THEN BO=0 
135 IF OD=l THEN AO=0 AND BO=0 
140 IF R=4 THEN BO=0 
145 Z=AO*10+AS 
150 Y=BO*10+B2 
155 IF Y=0 THEN 65 
160 IF R=2 AND Y>Z THEN 65 
165 IF R=4 AND B2=0 THEN 65 
170 IF R=4 AND Z/Y-INT(Z/Y)<>0 THEN 65 
IF R=4 AND Z/Y >9 THEN 65 
RL=0 
: UD=0 
185 ON AS GOSUB 300, 310, 320, 330, 340, 350, 360, 

370, 380 
190 IF ASO0 THEN 200 
195 GOSUB 390 

GOSUB 425 
GOSUB 465 
GOSUB 485 
200 RL=12 

: UD=0 
205 ON AO GOSUB 300, 310, 320, 330, 340, 350, 360, 

370, 380 
210 UD-11 

: RL=0 
215 ON B2 GOSUB 300, 310, 320, 330, 340, 350, 360, 
370, 380 



175 
180 



220 IF B2O0 THEN 230 
225 GOSUB 390 

GOSUB 425 

GOSUB 465 

GOSUB 485 
230 IF R=4 THEN BO=0 
235 RL=12 

: UD=ll 
240 ON BO GOSUB 300, 310, 320, 330, 340, 350, 360, 

370, 380 
245 ON R GOSUB 660, 715, 740, 800 
250 FOR X=18 TO 63 
255 SET (X, 21, 5) 
260 NEXT X 
265 IF EC=3 THEN SA=CA 

GOSUB 835 

PRINT @ 192, "THE "; 

PRINT @ 224, "CORRECT "; 

PRINT @ 256, "ANSWER IS "; 

GOTO 290 
270 GOSUB 955 
275 IF SAXCA THEN PRINT @ 192, "WRONG "; 

SOUND 5, 5 

EC=EC+1 

GOTO 265 
280 GOSUB 835 
285 IF SA=CA THEN PRINT @ 192, "CORRECT "; 

FOR X=245 TO 255 

SOUND X, 1 

NEXT X 

290 PRINT <§ 32, "PRESS ENTER "; 

291 A$=INKEY$ 

292 IF A$<>"" THEN 65 

293 FOR X=l TO 200 
NEXT X 

PRINT @ 32, " "; 

FOR X=l TO 200 
NEXT X 
GOTO 290 

300 GOSUB 390 
305 RETURN 
310 GOSUB 425 

GOSUB 445 

GOSUB 465 

GOSUB 555 

GOSUB 520 
315 RETURN 
320 GOSUB 390 

GOSUB 425 

GOSUB 445 

GOSUB 465 
325 RETURN 
330 GOSUB 390 

: GOSUB 445 
: GOSUB 590 
335 RETURN 
340 GOSUB 425 

GOSUB 445 

GOSUB 465 

GOSUB 590 

GOSUB 625 
345 RETURN 
350 GOSUB 445 

GOSUB 465 

GOSUB 485 

GOSUB 625 
355 RETURN 
360 GOSUB 390 

: GOSUB 425 
365 RETURN 
370 GOSUB 390 

GOSUB 425 

GOSUB 445 

GOSUB 465 

GOSUB 485 
375 RETURN 
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380 GOSUB 390 

: GOSUB 425 

: GOSUB 445 

: GOSUB 590 
385 RETURN 
390 FOR U=UD TO UD+8 
395 SET (60-RL, U, 5) 
400 NEXT U 
405 FOR U=UD TO UD+8 
410 SET (61-RL, U, 5) 
415 NEXT U 
420 RETURN 

425 FOR TS=54-RL TO 61-RL 
430 SET (TS, UD, 5) 
435 NEXT TS 
440 RETURN 

445 FOR MS=54-RL TO 61-RL 
450 SET (MS, UD+4, 5) 
455 NEXT MS 
460 RETURN 

465 FOR BS=54-RL TO 61-RL 
470 SET (BS, UD+8, 5) 
475 NEXT BS 
480 RETURN 

485 FOR LS=UD TO UD+8 
490 SET (54-RL, LS, 5) 
495 NEXT LS 
500 FOR LS=UD TO UD+8 
505 SET (55-RL, LS , 5) 
510 NEXT LS 
515 RETURN 

520 FOR TR=UD TO UD+4 
525 SET (60-RL, TR, 5) 
530 NEXT TR 
535 FOR TR=UD TO UD+4 
540 SET (61-RL, TR, 5) 
545 NEXT TR 
550 RETURN 

555 FOR BL=UD+4 TO UD+8 
560 SET (54-RL, BL, 5) 
565 NEXT BL 

570 FOR BL=UD+4 TO UD+8 
575 SET (55-RL, BL, 5) 
580 NEXT BL 
585 RETURN 

590 FOR TL=UD TO UD+4 
595 SET (54-RL, TL, 5) 
600 NEXT TL 
605 FOR TL=UD TO UD+4 
610 SET (55-RL, TL, 5) 
615 NEXT TL 
620 RETURN 

625 FOR BR=UD+4 TO UD+8 
630 SET (60-RL, BR, 5) 
635 NEXT BR 

640 FOR BR=UD+4 TO UD+8 
645 SET (61-RL, BR, 5) 
650 NEXT BR 
655 RETURN 
660 FOR X=30 TO 39 
665 SET (X, 15, 5) 
670 NEXT X 



675 FOR X=12 


TO 


18 


680 SET (35, 


x, 


5) 


685 NEXT X 






690 FOR X=12 


TO 


18 


695 SET (34, 


x, 


5) 


700 NEXT X 






705 CA=Z+Y 






710 RETURN 






715 FOR X=30 


TO 


39 


720 SET (X, 


15, 


5) 


725 NEXT X 






730 CA=Z~Y 






735 RETURN 






740 P=32 







: PP=12 
745 SET (P, PP, 5) 
750 IF P=39 THEN 765 
755 P=P+1 

: PP=PP+1 
760 GOTO 745 
765 P=39 

: PP=12 
770 SET (P, PP, 5) 
775 CA=Z*Y 
780 P=P-1 

: PP=PP+1 
785 IF P=31 THEN 795 
790 GOTO 770 
795 RETURN 
800 FOR X=29 TO 39 
805 SET (X, 15, 5) 
ai0 NEXT X 
815 CA=Z/Y 
820 SET (35, 13, 5) 

: SET (34, 13, 5) 
825 SET (35, 17, 5) 

.: SET (34, 17, 5) 
830 RETURN 

835 IF SA>999 THEN 855 
840 IF SA>99 THEN D=SA 

: GOTO 875 
845 IF SA>9 THEN H=SA 

: GOTO 895 
850 L=SA" 

: GOTO 940 
855 A=SA/1000 
860 B=INT(A) 
865 C=B*1000 
870 D=SA-C 
875 E=D/100 
880 F=INT(E) 
885 G=F*100 
890 H=D-G 
895 I=H/10 
900 J=INT(I) 
905 K=J*10 
910 L=H-K 
915 IF BO0 THEN RL=36 

: UD=23 

: ON B GOSUB 300, 

370, 380 
920 IF B=0 AND F=0 THEN 930 ELSE RL=24 

: UD=23 

: ON F GOSUB 300, 310, 320, 330, 340, 350, 360, 

370, 380 
925 IF F=0 THEN GOSUB 390 
GOSUB 425 
GOSUB 465 
GOSUB 485 
930 IF B=0 AND F=0 AND J=0 THEN 940 ELSE RL=12 

: UD=23 

: ON J GOSUB 300, 310, 320, 330, 340, 350, 360, 

370, 380 
935 IF J=0 THEN GOSUB 390 
GOSUB 425 
GOSUB 465 
GOSUB 485 
940 RL=0 

: UD=23 

: ON L GOSUB 300, 310, 320, 330, 340, 350, 360, 

370, 380 
945 IF L=0 THEN GOSUB 390 
GOSUB 425 
GOSUB 465 
GOSUB 485 
950 RETURN 
955 A$=INKEY$ 
960 IF A$<> ,m THEN AL=ASC(A$)-48 

: GOTO 970 
965 GOTO 955 
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970 A$=INKEY$ 

975 IF A$<>"" THEN BL=ASC(A$)-48 

: GOTO 985 
980 GOTO 970 
985 IF BL=-35 THEN SA=AL 

: RETURN 
990 A$=INKEY$ 
995 IF A$<>"" THEN CL=ASC(A$)-48 

: GOTO 1005 
1000 GOTO 990 
1005 IF CL=-35 THEN SA=AL*10+BL 

: RETURN 
1010 A$=INKEY$ 
1015 IF A$<> "" THEN DL=ASC(A$)-48 

: GOTO 1025 
1020 GOTO 1010 
1025 IF DL=-35 THEN SA=(AL*100)+(BL*10)+CL 

: RETURN 
1030 A$=INKEY$ 
1035 IF A$<>"" THEN EL=ASC(A$)-48 

: GOTO 1045 
1040 GOTO 1030 
1045 SA=(AL*1000)+(BL*100)+(CL*10)+DL 

: RETURN 



^eshsI 



Clock 



Paul L. Oberholtzer 
4724 Laffite Court 
Alexandria, VA 22312 



In Going Ahead With Extended Color BASIC it says to 
store a graphics rectangle, a two-dimensional array with 
elements equal to the sides of the rectangle needed. In other 
words, an 8 x 8 rectangle needs an 8 x 8 array. I have found 
this to be a great waste of memory. In PMODE 4, an 8x8 
rectangle only uses 8 bytes of display memory and in 
PMODE 3, an 8x8 rectangle only uses 16 bytes of display 
memory. When ever an 8 x 8 array is dimensioned, it grabs a 
lot more than 1 6 bytes, and all that memory cannot be used 
by BASIC. 

When ever I write a graphics program that uses the GET 
and PUT statements, I compute the arrays as follows: 



MODE 
2 Color 
4 Color 



FORMULA FOR ARRAY 
INT(WIDTH/8) + 1 ,INT(HEIGHT/8) + 1 
INT(WIDTH/4) + 1 ,INT(HEIGHT/4) + 1 



EXAMPLE: PMODE 4 

AREA =10x6 
INT(10/8) + 1=2 
INT(6/8) + 1=1 
ARRAY = (2,1) 

So, an area 10x6 only needs a statement like "DIM 
ARRAY (2,1)" instead of "DIM ARRAY (10,6)", in PMODE 4. I 
have included a program which uses this technique to store 
5x7 matrix characters (0-9). This allows the program to run 
on a 16K machine instead of the 32K, which would be 
needed otherwise. 

The program can be used to teach children to tell time. It 
draws a clock face, picks a random time, and prompts for the 
answer. If the wrong answer is pressed it will not be displayed. 
If the right number is pressed it is displayed. After the correct 
time is entered, there is a slight delay, and a new clock is 
drawn. 



10 ■ 

20 ' 

30 ' 

100 

110 

120 

130 

140 

150 

160 

170 
180 
190 
200 
210 

220 
230 
240 
250 

260 

270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 

530 

540 

550 

560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 



710 
720 



CLOCK TEACHER 

BY PAUL OBERHOLTZER 

DATE DECEMBER 6, 1982 

•*** SETUP *** 

DIM Nl(l, 1) 

1) 

1) 



N2(l, 1), 
N5(l, 1), 
N8 ( 1 , 

D6; Ll 

Fl; Dl 
Dl 



Fl 



1), 
R2' 
Gl; 
Gl: 



D6" 

Fl; D2; 
D4; Fl: 



D2" 
Gl; Fl; 



E3; 
R3; 
Gl; 
G3; 

Dl; 

Ul" 

El; U4; Hi; 

D4; Gl; L2; 



1 

53; XN1$; 
69; XN2$: 
94; XN3$: 
122; XN4S; 
134; XN5$; 

, 141; XN6$; 

, 134; XN7$; 
118; XN8$; ' 



98 



69 



XN9$; 
XN0$; 
XN1$; 
XN1$; 



DIM N4(l 
DIM N7(l 
Nl$="Rl; Ul; 
N2$="E1; R2; 
N3$="E1; R2; 

HI" 
N4$="L4; Ul; 
N5$="L4; D2; 
N6$="H1; L2; 
N7$="R4; Dl; 
N8$="R2; Fl; 

R2; L2; Hi; 
N9$="F1; R2; 
N0$="R2; Fl; 
'** DRAW NUMBERS ** 
PMODE 4, 1 

: COLOR 0, 1 
PCLS(l) 

: SCREEN 1 
DRAW "BM152 
DRAW "BM170 
DRAW "BM180 
DRAW "BM174 
DRAW "BM154 
DRAW "BM129 
DRAW "BM102 
DRAW "BM83, 
DRAW "BM72, 
DRAW "BM86, 
DRAW "BM80, 
DRAW "BM99, 53 
DRAW "BM105, 53; XN1$ 
DRAW "BM123, 46; XN1$ 
DRAW "BM128, 46; XN2$ 
GOSUB 1000 

'*** DRAW CLOCK. FACE *** 
CIRCLE (128, 96), 5 
CIRCLE (128, 96), 3 
CIRCLE (128, 96), 65, , 
CIRCLE (151, 75), 9, , . 
CIRCLE (107, 75), 9, , . 
CIRCLE (128, 65), 60. 
CIRCLE (151, 75), 4 
CIRCLE (107, 75), 4 
HR=RND(12) 

: TM=RND(12) 
ON HR GOSUB 3030, 3050, 

3150, 3170, 3190. 3210 
ON TM GOSUB 4030, 4050, 

4150, 4170, 4190, 4210 
MIN=TM*5 

: IF MIN=60 THEN MIN=0 
'*** WHAT TIME IS IT? ** 
DRAW "BM76, 12; D6 ; E2; 
DRAW "BM83, 12; D6 ; U3; 
DRAW "BM90, 18; U4; E2; 
DRAW "BM97, 12; R4; L2; 
DRAW "BM111 , 12 
DRAW "BM119, 12 
DRAW "BM125, 18 
DRAW "BM137, 12 
DRAW "BM148, 12 
DRAW "BM159, 13 
DRAW "BM169 , 12 
DRAW "BM175, 12 
DRAW "BM183, 13 

: PSET(184, 18) 
'*■** ANSWER ROUTINE 
IF HR<10 GOTO 770 
X=110 

: Y=162 

: HR=HR-10 



N3(l, 1) 
N6(l, 1) 
N9 ( 1 , 1 . ) , N0 ( 1 , 1 ) 

Ll; G2; Dl; R4" 

Ll; Rl ; Fl; Dl ; Gl ; L2; 



Gl; L2; Hi" 

R2; El; Ul 

Dl; Gl ; L2 

L2; Gl; Dl 

HI; U4" 



HI; L2" 
HI; Ul; El 
Fl; R2" 



.85 

5 

5 

I , .16, .35 



3070, 3090, 3110, 3130. 

3230, 3010 
4070, 4090, 4110, 41 30 : 

4230, 4010 



; R4 


L2; 


; R2 


Ll; 


, U6 


F2; 


; L4 


D3; 


; R2 


Ll; 


; HI 


L2; 


; R2 


Ll; 


; R4 


L2; 


; El 


Rl, 



Ul; 
R4; 
F2; 
D6" 

D6' 

D6; 

E2; 

R2; 

D6; 

Gl; 

D6; 

D6' 

Fl: 



Dl; F2; U6" 

U3; D6" 

D2; L3; R3; D2" 



Ll; R2" 

D6" 

L2; D3; R4" 

Ll; R2" 

F4; Gl; L2; Hi' 

Ll; R2" 

Dl; Gl; Ll ; Dl' 
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730 GOSUB 7000 

740 IF VAL(A$)= 1 THEN 760 ELSE GOSUB 6000 

750 GOTO 730 

760 GOSUB 5000 

770 GOSUB 7000 

780 IF VAL(A$)=HR THEN 800 ELSE GOSUB 6000 

790 GOTO 770 

800 X=118 

: Y=162 
: GOSUB 5000 
PSET (127, 164) 

: PSET (127, 167) 
ML=INT(MIN/10) 

: MR=MIN-ML*10 
GOSUB 7000 

IF VAL(A$)=ML THEN 860 ELSE GOSUB 6000 
GOTO 830 
X=131 

: GOSUB 5000 
GOSUB 7000 
IF VAL(A$)=MR THEN 
GOTO 870 
X=139 

: GOSUB 5000 
FOR T=l TO 1000 

: NEXT T 
GOTO 260 

'*** SUBROUTINES *** 
'** GET NUMBERS ** 
GET (150, 52)-(154, 58), Nl , G 
GET (170, 68)-(174, 74), N2 , G 
GET (180, 93)-(184, 99), N3, G 
GET (170, 118)-(174, 124) 



810 

820 

830 
840 
850 
860 

870 
880 
890 
900 

910 

920 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

3000 
3010 
3020 

3030 
3040 

3050 
3060 

307 
3080 

3090 
3100 



ELSE GOSUB 6000 



N4, G 

GET (150, 134)-(154, 140), N5 , G 
GET (125, 140)-(129, 146), N6 , G 
GET (102, 134)-(106, 140), N7 , G 
GET (82, 118)-(86, 124), N8 , G 
GET (72, 93)-(76, 99), N9 , G 
GET (85, 68)-(89, 74), N0, G 
RETURN 

'** PUT NUMBERS ** 
PUT (X, Y)-(X+4, Y+6), Nl, PSET 
: RETURN 

PUT (X, Y)-(X+4, Y+6), N2, PSET 
: RETURN 

PUT (X, Y)-(X+4, Y+6), N3, PSET 
: RETURN 

PUT (X, Y)-(X+4, Y+6), N4, PSET 
: RETURN 

PUT (X, Y)-(X+4, Y+6), N5, PSET 
: RETURN 

PUT (X, Y)-(X+4, Y+6), N6, PSET 
: RETURN 

PUT (X, Y)-(X+4, Y+6), N7, PSET 
: RETURN 

PUT (X, Y)-(X+4, Y+6), N8, PSET 
: RETURN 

PUT (X, Y)-(X+4, Y+6), N9, PSET 
: RETURN 

PUT (X, Y)-(X+4, Y+6), N0, PSET 
: RETURN 

'** LITTLE HAND ** 
LINE (123, 94)-(129, 68), PSET 
LINE -(133, 94), PSET 
: RETURN 
LINE (125 
LINE -(133, 97) 
: RETURN 
LINE (127, 
LINE -(131 
: RETURN 

LINE (129, 92)-(161, 98), PSET 
LINE -(129, 100), PSET 
: RETURN 

LINE (132, 93)-(155, 113), PSET 
LINE -(125, 100), PSET 
: RETURN 



92)-(145, 75) 

PSET 



PSET 



92)-(155, 83), PSET 
, 100), PSET 



92)- 
, 100 



99) 



99) 

94)- 
, 98) 



98) 

94)- 
, 98) 



94)- 
, 98) 



143, 124), PSET 
, PSET 

127, 127), PSET 
PSET 

(108, 123), PSET 
PSET 

97, 109), PSET 
, PSET 

93, 95), PSET 
, PSET 



101, 78) 
, PSET 

112, 69) 
PSET 



128, 52), PSET 
PSET 



3110 LINE (133, 94)- 
3120 LINE -(126, 101 

: RETURN 
3130 LINE (132, 95)- 
3140 LINE -(124, 95) 

: RETURN 
3150 LINE (131, 100) 
3160 LINE -(124, 94) 

: RETURN 
3170 LINE (125, 94)- 
3180 LINE -(126, 101 

: RETURN 
3190 LINE (126, 92)- 
3200 LINE -(126, 100 

: RETURN 
3210 LINE (127, 
3220 LINE -(125 

: RETURN 
3230 LINE (130, 93) 
3240 LINE -(124 

: RETURN 
4000 '** BIG HAND ** 
4010 LINE (126, 93)- 
4020 LINE -(130, 93) 

: RETURN 
4030 LINE (127, 93)- 
4040 LINE -(131 

: RETURN 
4050 LINE (128, 
4060 LINE -(129 

: RETURN 
4070 LINE (128, 94) 
4080 LINE -(128 

: RETURN 
4090 LINE (129, 
4100 LINE -(127 

: RETURN 
4110 LINE (131, 97)- 
4120 LINE -(126, 97) 

: RETURN 
4130 LINE (126, 96)- 
4140 LINE -(130, 96) 

: RETURN 
4150 LINE (126, 95)- 
4160 LINE -(130, 97) 

: RETURN 
4170 LINE (126, 
4180 LINE -(129 

: RETURN 
4190 LINE (128, 94)- 
4200 LINE -(128, 98) 

: RETURN 
4210 LINE (127, 94)- 
4220 LINE -(126, 98) 

: RETURN 
4230 LINE (130, 94)- 
4240 LINE -(125, 96) 

: RETURN 
5000 '*** CORRECT KEY *** 
5010 IF A3="l" THEN GOSUB 2010 
5020 IF A$="2" THEN GOSUB 2020 
5030 IF A$="3" THEN GOSUB 2030 
5040 IF A$="4" THEN GOSUB 2040 
5050 IF A$="5" THEN GOSUB 2050 
5060 IF A$="6" THEN GOSUB 2060 
5070 IF A$="7" THEN GOSUB 2070 
5080 IF A$="8" THEN GOSUB 2080 
5090 IF A$="9" THEN GOSUB 2090 
5100 IF A$="0" THEN GOSUB 2100 
5110 SOUND 200, 1 

: RETURN 
6000 '*** INCORRECI KEY *** 
6010 SOUND 50, 3 

: RETURN 
7000 '*** INPUT *** 
7010 A$=INKEY$ 

: IF A$="" THEN 7010 



PSET 



PSET 



151, 57), 
PSEI 

170, 73), 
PSET 

180, 96), 
PSET 

170, 119) 
PSET 

150, 134) : 
PSET 

127, 140) : 
PSET 



PSET 



PSET 



PSET 



PSET 



PSET 



PSET 



106, 134), PSET 
PSET 



86, 118) 
PSET 

76, 96), 

PSEI 

89, 72), 
PSET 

103, 58), 
PSET 



PSET 



PSET 



PSET 



PSET 
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7020 RETURN 

9999 END jE3 

Counting on the Color 
Computer 

Ralph Delperdang 
5624 Wagon Train Road 
Austin, TX 78749 

I wrote this counting program for my 4-year-old daugh- 
ter. She could count up to 1 00 with a little help, but she did not 
know what numbers over 1 looked like. To run this program 
once loaded, just start typing the numbers: 1, 2,3, 4, etc. You 
can shorten this program by leaving out steps 394 through 
530. This will allow you to count from 1 to 99 instead of 1 to 
999. This program requires only 4K. 

10 'COUNTING PROGRAM FOR THE TRS-80 COLOR 
COMPUTER RALPH DELPERDANG 

5624 WAGON TRAIN RD AUSTIN, TEXAS 

78749 24 AUGUST 1982 

20 'THIS PROGRAM MONITORS A CHILD'S ABILITY TO 
COUNT FROM 1 TO 999. IF THE CHILD MAKES A 
MISTAKE THE COMPUTER WILL "BEEP" THEN WAIT 
FOR THE CORRECT RESPONSE. 

30 'AFTER 10 MISTAKES THE PROGRAM WILL STOP 
AND DISPLAY ALL THE NUMBERS THE CHILD 
MISSED. 

100 DIMDU0) 



110 CLS 




114 ' 




115 'SUBROUTINE FOR THE ONE DIGIT 


NUMBERS 


116 ' 




120 FOR A=l TO 9 




130 B$=INKEY$ 




140 IF B$="" THEN 130 




150 IF VAL(B$)=A THEN SOUND 170, 1 




: PRINT " "; B$; " "; ELSE GOSUB 


1000 


: GOTO 130 




160 NEXT A 




194 ' 




195 'SUBROUTINE FOR THE TWO DIGIT 


NUMBERS 


196 ' 




200 FOR A=10 TO 99 




210 B$=INKEY$ 




220 IF B$="" THEN 210 




230 C=INT(A/10) 




240 IF VAL(B$)=C THEN SOUND 170, 1 




: PRINT " "; B$; ELSE GOSUB 1000 




: GOTO 210 




250 B$=INKEY$ 




260 IF B$="" THEN 250 




270 H=l 




280 C=A-(INT(A/10)*10) 




290 IF VAL(B$)=C THEN SOUND 170, 1 




: PRINT B$; " "; ELSE GOSUB 1000 




: GOTO 250 




300 H=0 




310 NEXT A 




394 ' 




395 'SUBROUTINE FOR THE THREE DIGIT 


NUMBERS 


396 ' 




400 FOR A=100 TO 999 




410 B$=INKEY$ 




420 IF B$="" THEN 410 




430 C=INT(A/100) 




440 IF VAL(B$)=C THEN SOUND 170, 1 




: PRINT B$; ELSE GOSUB 1000 




: GOTO 410 




450 B$=INKEY$ 




460 IF B$="*' THEN 450 




470 C=INT(A/10)-(INT(INT(A/10)/10)*10) 





480 IF VAL(B$)=C THEN SOUND 170, 
: PRINT B$; ELSE GOSUB 1000 
: GOTO 450 

490 B$=INKEY$ 

500 IF B$="" THEN 490 

510 C=A-(INT(A/10)*10) 

520 IF VAL(B$)=C THEN SOUND 170. 



: PRINT B$; 

: GOTO 490 
530 NEXT A 
594 ' 
595 
596 



ELSE GOSUB 1000 



'SUBROUTINE THAT LISTS THE MISTAKES 



THE MISTAKES 



600 PRINT 

: PRINT "ERRORS:" 
610 FOR G=l TO E 
620 PRINT D(G); 
640 NEXT G 
650 END 

994 ' 

995 'SUBPROGRAM THAT COLLECTS 

996 ' 

1000 IF A<10 THEN PRINT " "; 

1010 IF A<100 AND H=0 THEN PRINT " "; 

1020 PRINT B$; 

1030 SOUND 89, 16 

1040 E=E+1 

1050 D(E)=A 

1060 PRINT CHR$(8); 

1070 IF A<10 THEN PRINT CHR$(8); 

1080 IF A<100 AND H=0 THEN PRINT CHR$(8); 



1090 IF E=10 GOTO 600 



IK 



H=!2 



1110 RETURN JB 

Matrix 

Robert E. Cutter 

2505 West 6th Street, #701 

Los Angeles, CA 90057 

Sometimes in life it is necessary to do unpleasant tasks, 

one of which is finding the product of two matrices. To avoid 

this little chore I decided to teach my Color Computer how to 

do this for me. It seems to enjoy doing repetitive operations of 
this nature. 

The program first asks you to decide what type of num- 
bers you will be using (integer, decimal, etc.). For the purpose 
of demonstration, press (enter) (format will be integers). 
You are now asked for the number of rows in the first matrix 
(M). Enter GD. Now you are asked for the number of col- 
umns. Enter GD. The program now requests the number for 
row one, column one M(1 ,1). Enter CD- Now, you are asked 
for the number in row one, column two M(1 ,2). Enter GO- 
Enter GD in M(1,3) for row one, column three. For M(2,1), 
enter CA). For M(2,2), enter d}. For M(2,3) enter dD. For 
M(3,1) enter CD. For M(3,2) enter GD, and for M(3,3) enter 
GD- You should now see the matrix you just entered dis- 
played on the screen. 
1 2 3 
4 5 6 
7 8 9 MATRIX M 

If it is not c orrect, inpu t "N" for "NO" and do it over. If it is 
correct, press (enter) and the program will ask if the 
second matrix (N) has been entered. Press (enter ). You 
are now asked to supply the same information for the second 
matrix (N) as you did for the first matrix (M). Enter the following 
matrix. 

1 1 1 

2 2 2 

3 3 3 
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Rows: 3 Columns:3 N(1,1) = 1, N(2,1) = 1, . . . N(3,3) = 3 

Again, you are asked to verify the matrix. If it is incorrect, 
enter "NO" and do it over. If it is correct, press G OPr e r) . 
You should see the product displayed. 
MATRIX P 14 14 14 

\JC- kJC, \J£L. 

50 50 50 
It beats pencil and paper every time. 

1 'MATRIX MULT.' 

2 'ROBERT E CUTTER' 

2 '2505 W 6TH ST APT 701* 

4 'LOS ANGELES, CA 90057' 

5 'EXTENDED COLOR BASIC 1.0" 

6 '3/11/83 V. Ill' 
10 DIMS(100), T(30) 

: F=l 
20 CLS 

: PRINT STRING$(32, 175); 
30 PRINT " THIS PROGRAM WILL FIND THE PRODUCT 

OF TWO MATRICES." 
40 F$(0)=" ####" 

F$(l)=" ###.#" 

F$(2)=" ##.##" 

F$(3)=" #.###" 

F$(4)=" .####" 
50 PRINT STRING$(32, 175); 
60 PRINT TAB(9)"CH00SE FORMAT" 
70 PRINT TAB(11)"0: ####" 

PRINT TAB(11)"1: ###.#" 

PRINT TAB(11)"2: ##.##" 

PRINT TAB(11)"3: #.###" 

PRINT TAB(11)"4: .####" 

PRINT 

PRINT 
80 PRINT TAB(6) 

: INPUT "ENTER CHOICE (0 - 4)"; V 
90 CLS 

. PRINT TAB(5)"MATRIX ONE M(RXC):" 
100 INPUT "NUMBER OF ROWS=" ; A 

: SOUND 100, 1 
110 INPUT "NUMBER OF C0LUMNS=" ; B 

: SOUND 100, 1 
120 FOR R=l TO A 

FOR C=l TO B 

PRINT "M("R", "C")="; 

INPUT M(R, C) 

SOUND 175, 1 

NEXT C, R 

SOUND 100, 4 

CLS 
130 FOR R=l TO A 

PRINT 

FOR C=l TO B 

PRINT USING F$(V); M(R, C); 

NEXT C, R 

PRINT " MATRIX M" 
140 PRINT 

PRINT 

INPUT "IS THIS CORRECT— YES OR NO"; Q$ 

CLS 
150 IF Q$="N" OR Q$="NO" THEN 90 ELSE 160 
160 CLS 

: INPUT "HAS MATRIX N BEEN ENTERED"; Q$ 
170 IF Q$="Y" OR Q$="YES" THEN 250 ELSE 180 
180 CLS 

: PRINT TAB(5)"MATRIX TWO N(RXC):" 
190 INPUT "NUMBER OF ROWS=" ; D 

: SOUND 100, 1 
200 INPUT "NUMBER OF COLUMNS=" ; E 

: SOUND 100, 1 
210 FOR R=l TO D 

FOR C=l TO E 

PRINT "N("R", "C")="; 

INPUT N(R, C) 



SOUND 175, 1 
NEXT C, R 
SOUND 100, 4 
CLS 

220 FOR R=l TO D 
PRINT 

FOR C=l TO E 

PRINT USING F$(V); N(R, C); 
NEXT C, R 
PRINT " MATRIX N" 
230 PRINT 

: PRINT 

: INPUT "IS THIS CORRECT—YES OR NO"; Q$ 
240 IF Q$="N" OR Q$="NO" THEN 180 ELSE 250 
250 CLS 

: IF (B)O(D) THEN PRINT @(160+3), 
"MULTIPLICATION NOT DEFINED" 
SOUND 100, 30 
CLS 

GOTO 90 
260 FOR R=l TO A 

: FOR X=l TO E 

: FOR C=l TO B 

270 S(F)=M(R, C)*N(C, X) 

: F=F+1 
280 NEXT C, X, R 
290 K=l 

: L=D 
300 FOR Z=l TO A*E 
310 FOR X=(K) TO (L) 
320 T(Z)=T(Z)+S(X) 
330 NEXT X 

: K=K+D 
: L=L+D 
340 NEXT 
350 X=l 
360 FOR R=l TO A 

FOR C=l TO E 
P(R, C)=T(X) 
X=X+1 
NEXT C, R 
370 FOR R=l TO A 
PRINT 

FOR C=l TO E 

PRINT USING F$(V); P(R, C); 
NEXT C, R 
380 PRINT 

390 PRINT "MATRIX P M*N" 
400 FOR Z=l TO 460*5 

: NEXT 
410 FOR R=l TO A 
PRINT 

FOR C=l TO B 

PRINT USING F$(V); M(R, C); 
NEXT C, R 
PRINT " MATRIX M" 
420 FOR R=l TO D 
PRINT 

FOR C=l TO E 

PRINT USING F$(V); N(R, C); 
NEXT C, R 
PRINT " MATRIX N" 
430 FOR Z=l TO 100 
S(Z)=0 
NEXT 
F=l 

440 FOR Z=l TO 30 
: T(Z)=0 
: NEXT 
450 PRINT 

: PRINT 

: INPUT "IF YOU WISH TO ALTER MATRIX M OR N: 
ENTER M OR N" ; Q$ 
: CLS 
460 IF Q$="M" THEN 90 ELSE 180 
470 END 



TRS-80 Microcomputer News, September 1983 



47 



Radio Shack Computer Center 
Addresses and Telephone Numbers 



BIRMINGHAM . 1. 

MOBIU < 
MONTGOMERY f, 

PHOfHIX 
SCOTT ST 


ALABAMA 

J^0792, 9233 

« Win** Piwv f2GS> 53F>t5*i 

Unon Sq . -MO 

Mtaow 


WNOM 

ILMWUOOPARX r, 

FAIRVIEW HEIGHTS 

NMfWOOQ "• 

JOUET 

' 

UBERTYVllLE ■ 


ILLINOIS 

■ :l 








'il; 

LITTLE ROCK • 


ARKANSAS 
CALIFORNIA 




1 ■ 

■ 

SCHAUMBURG ',: 

EVANS, 

FT WAYNE ': \ 

GfllFFiT 






1 



[MOW P*W 

CARMICHAEL 

Ml ,', v.'ii 



f IEM -.1 

FRESNO : 
GARDE 1 . 



M20 



MONTEREY ■■'- A- 
MOONIA ». (IE* 
OAKIAV 
PASACF'..' 

i: ■■. ',ii 

UN EtHNARDINO . .- ■■ : ■ ' 
■ i: 

2 .0227 

■ VI 



1&I 96' 064? 



IS ••::-.:, 



I 



:<i. 



s*s an ; a s bm .»•■ *» 

SAN HATH n jS Or (415 

SANTA AHA . ■ 
,, ,,,,., 
SANTA FE SWINGS 
SANTA MONICA 
SANTA ROSA : 

STQCKTDA 

■ 
TAR7ANA -V-- '. -i. - 
TQRRWE 041 ; rt* ' 
VEHTURJ I -' 

I 









COLORADO 

BBULDEP 

COLORADO .BRINGS T - '. i i', 303 593 ! ' 

DENVER ''•!> E LX< l| ■' ■ " ' 

LAKEWOOO . ' 

CONNECTICUT 
EAST H«. i 

FAtRHEUT 
I 

MANCHESTER ■» Sjew St (20 
HORWALI -46-3418 

ORANGE W 
WATEHBURY " " 
I' ■ I -Hill 
W!STHART : n'-i<' ■ l| 52W283 

DELAWARE 
DOVEH '.??3 

WILMINGTON !-■ H'93 

DISTRICT Cf COLUMBIA 
WASHINGTON 

FLORIDA 
ALTAMOKTESPRiN' I' 1305)339-1313 

BOCA RATON 

CUAFW" 1 • 97-3B3 

DAYTONA BEACH . 

FT LAUDERDALE 6 '679? 

FORT MYERS : 
FORT PIERCE 

1305} 486-208 
GAIHESV,! 
HOLLYWOOD - i 
JACXSCNVIL.. 

LAUDERDALE LAKES 
MERHITT ISIAN - ; 

M<AMl M • c B 1 ^ 



PEhSACOLA 






ST PETERSBURG -4&1 881 BI3) 38 1 2366 

SARASOTA " 

TALLAHASSEE 

■ 



lb' I 



130 



W PALM BEACH 1. •'•83 3100 

GEORGIA 
AUGUSTA 

ATLANTA . ' 






COUEGI PARK V 
COLUMBUS 

DORAVILLI 9E97 i 7 S 269' 

MACON 1*1 

SAVANIith 






POWA 



CEDAR RAPIDS 

' 

' ' ' 

KANSAS 

OVERLAND p ARK ■' 



Wi 



FLORENCE 

LEXINGTON 2909 Pi 

LOUISVILLE 29C . 9901 Lm*w* 

LOUIS 

■ ■ 
BAIi'i ROUGI 
GRETNA 
HOIIMA 
LAFAYEU 
MfTAIRIF 

SHPEVEP' I 

BANGOR '•' 

MARYLAND 

BALTIMORE 794; -J83 M5 

■ 

'*-0B92 

I . . ='-'!' 

NEW CARROUTON LANHAM i 949 ■'• nap* ■'..; I B1 4598030 
ROCKV<LLE 11 



: r : in- 
TEMPLE Hll I 
TOWSON LUTHERVILL1 



i, . 1 -!»0740 



MASSACHUSETTS 



' 



9 7860 



BRAINT'i. 
1 
I 
• 
' 
i... • ' 
SAUOUS 

■ ' 
WORCESTER Una*! P *a [61 .'1 Sn2-«844 
■OHM 

BIRMINGHAM .. ,-, V- ■ I . [V ' bi ! 2'5 
OFARflfWI '.'.' ' :-' 1:1 l'i'61 M .1 p fefl 



' 
GRAND RAPIDS 

■ 

• ' 

V6890 
ROSEVIU.- 

• : 11,: 

■undPiAM. 322 John H Ff 
WARREN 28036 . •: i, 

MINNESOTA 
i,i'-,. : i, . 

GOLDEN VALLEY 1 

MINNEAPOLIS 930 ItarquBte fan (6121 340-0788 
ST PAUL 6lti & Wltssha. (612)291 7230 



GULFPORT O'tA 1 0. :no;K 
JACKSON '"I,"' I : '.: 

MISSOURI 
DCS-PERES ' 1960 NbncfttrMi KS (31*) 965-5911 
FLORISSAN 

KANSAS 3381 

ST ANN 

ST LOU 1 xt Sank Htdg 1 

• 

LINCOLN -i 02)4837841 

OMAHA i.tl 

97 10B6 

NEVADA 
US VEGAS ,i 

NtW HM 

NASHUA ''5091 «1 BSM 

NEW JFHSf > 

BRIDGEWATER : " 
E BRUh:,;. 



Radio /hack 



IRS BD Vic-ocoinpuLer News 
PO Bg^ L J 91D 

Fch l Wort'i. le^ab 76113 2910 



BULK RATE 

U.S. POSTAGE 

PAID 

Radio Stuck 

A Dlv. of Tandy Corp, 



ADDRESS CHANGE 
I Remove from list 

Please detach address label and mail to address shown above 



Change as shown 



NORTRFIELD J22 /• 

SPRINGFIELD- •'•. ^ , - 

■ .'i 
WOflHEES 

NEW MEXICO 

NiBuouanuf . i < mm m isosi ■<- •>- v 

NEW YORK 

• I.. 




HI HOI 

'. ' 
BROQXIYN 53t Bfeir ! 

FRESH MEADOWS 18 



I,: . 



: 050 



: I RB . 

PUERTO RICO 
HATOREY 243fianl* S R ■ . - 

RHODE ISLAND 
E PROVIDENCE t : 2860 

pRovioiNce ■"!;•! ■ ■- -i ft 

SOUTH CAROLINA 
COLUMBIA 1-1 il • ' ■ '.' - 

GHEE1VILLE ', .835 

N. CHARLESTON 

SOUTH DAKOTA 



DMttl '• I 

Mtunui 

HEWWRCH 

MM HCN 

hbi n ■ 



NIAGARA FALLS ? 



' 






I '. MC 
ROCHE SI 

" ,-"•■••..- ■ 
SPRING .ALHY WI -i "I ■ 

SiAlfh 'MAN,! 
SYRACUSE 

■ 

1933 

VALLEY STREAM l >> 
YONKERS I ' . .: . 

ASHEVILLE K V ■ 

CHARLOTTE 12 l^.1e(>waena 8v 

OURHAW 
FAYEnEVIUI 

fiflMNSBORO I? 6 H ;M P. nr 4. ■_■ -l 

WINSTON SAI'M l. 

AKRON I •■ 

BEDFORD HEIGHTS ' ' 

CAMION ;, 1 <s Or« 

. 

i.i 

i 

I M ' 
I ' 

■ : 
-h 

DAYTOI 
ELYRIA 

FAIRFIELD 

NORTH : . I 
PARMA . , 

rOUH M4W (.:■ i ' ' '•■ i • 

,r ,1 ■ 

rOUNGSTOWH LI u Sqwt AaM, 2S43 BSD 

OKLAHOMA 
OKLAHOMA CITY 

94 2406 

tulsa ran I ■:-. 

OREGON 
EUGENE 390 C«hj". 
PORTLAND I 

SALEM i . 

PENNSYLVANIA 
ALLEKTUWN . CI 

BAUCYNWtD 

, -,,■( ., ■■ ii 

DM PAW 

I 
... 






LANCASTER Part . 

MUNHCir,' 

HOHTBONBtYVILU '■ rp I I 3t» l? 1 : ' : - 120 

I .:. 



*•>■■ 



, ii : rAMOOGA 



TENNESSEE 

'366 

-V '. •■- i iti'Sj J:: 6629 

rt 

,:i '•SB 5484. Rjvwgjte Ptta 

TEXAS 

AMARILL'J 

■ || IHGT •- - ' 

' 



yjUta STATION 

CORPUS , 

i 



HUf-'HL F 

•- W8TW 






IDAHO 



M 'fi- ' 



■ ; 355 

RICHARDS' . s mC. 202 tt Ci>mpo«li Rd„ 

' 

' ' 

WICHITA N 

tfTAM 

: 

MURRAr il 

SALT LAKE CITY 3 ' iS26 

VIRGINIA 

ARLINGTON 

FAIRFAX ','. Ii 
LYNCHBURG Hi s 
NEWfOKl NEWS 
NORFOU 

' ,7-8803 
ROANOKE I 
ROSSLYh il Ri 29. (7031 ■ 

WASHINGTON 
8ELLEVH. I 8th A 156 Sl 

14 180-1 
8ELLIHGHAM |-!i Co-"wa» Am : 

■ 
GLYMPIA I' 
SEA1TLL 

' 
SPOXAWI 

IACOMA 

FUKWILA ':4?5 53Td Am ■ 

YAKIMA 

WIST VIRGINIA 

HUNTINGWN , ir ■ r >.,. [3041 ■ 

WISCONSIN 
APPLET i: n 731 6424 

MADISON >7 

. WwMfiM 
■ 
WEST ALUS I 327 4240 



